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ABSTRACT 


Introductory students of astrodynamics and the space environment are required to have 
a fundamental understanding for the kinematic behavior of satellite orbits. This thesis 
develops a standard library that contains the basic formulas for modeling earth orbiting 
satellites. This library is used as a basis for implementing a satellite motion simulator that 
can be used to demonstrate orbital phenomena in the classroom. 

This thesis surveys the equations and principles taught to introductory orbital 
mechanics and space systems students. The library organizes these orbital elements, 
coordinate systems and analytic formulas into a standard method for modeling earth 
orbiting satellites. The standard library is written in the C programming language and is 
designed to be highly portable between a variety of computer environments. 

The simulation draws heavily on the standards established by the library to produce a 
graphics-based orbit simulation program written for the Apple Macintosh computer. The 
simulation demonstrates the utility of the standard library functions but, because of its 


extensive use of the Macintosh user interface, is not portable to other operating systems. 
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I. INTRODUCTION 


Most students of astrodynamics, that branch of mechanics that is concerned with the 
motion of celestial bodies and often called celestial mechanics, are given a rigorous 
treatment of the physics but little appreciation for the actual kinematic behavior of a 
satellite's orbit. The reasons for this are twofold; the first is that the equations involved 
are often time dependent functions. Secondly, and perhaps more importantly, it is not an 
easy task to represent a three dimensional position in a single geometric plane such as the 
classroom blackboard. These two factors, and the requirement to perform repetitive, 
complex calculations rapidly, are enough justification for developing a standard orbit 
modeling library on a microcomputer system. 

This standard library should provide facilities to support the creation and calculation 
of orbits from simple elementary cases to more advanced modeling of actual Earth satellite 
systems. Based on this library an interactive orbital simulation can be created to give the 
student of astrodynamics an appreciation for exactly what characterizes the motion of a 
satellite in orbit around the Earth. Unfortunately, most precise orbit modeling systems are 
not presented as pedagogical tools or require special hardware that make them unavailable 
for use on microcomputers. The systems that are available for microcomputers are often 
monolithic structures that can provide the student with little insight into the particular 
components of an orbital simulation. Of particular importance to a simulation designed to 
educate the user is the ability for the student to interact with the information presented. 
This requires an integrated system capable of providing immediate feedback and easy 


modification of the parameters that define a satellite orbit. 


The purpose of this thesis 1s to provide a student with an accessible resource for the 
study of satellite orbits. This 1s accomplished by first creating a library of useful and 
independent routines that can be used in many potential orbit modeling situations. The 
utility of these modules is subsequently demonstrated by using them to create a multiple 
view, three dimensional simulation of several satellites orbiting the Earth. To make these 
modules truly general purpose, the C programming language was chosen as the only 
language currently in widespread use that is capable of fast numeric calculations and is 
available in several different microcomputer operating systems and graphics environments. 
The C programming language has the added benefit of being able to provide a structured 
interface that allows many of the implementation details of the orbital routine library to be 
abstracted out. Such abstraction will make future enhancements or maintenance as 


painless as possible to the user programs serviced by the library. 


A. METHODOLOGY 

This thesis 1s organized into three main sections: a background of relevant 
astrodynamic concepts, a description of library functions, and the orbital simulation 
program. The section devoted to providing background material includes chapters that 
discuss the motion of satellites in a closed orbit and the coordinate systems that this motion 
can be presented in. By stepwise development of the computational aspects of 
astrodynamics, an appreciation for the function performed by a particular library routine as 
well as its context can be established. 

The simulation will make use of many of the library routines developed but is not 
intended to encompass the entire library. Some routines are provided for completeness 
and would be used by other programs for their own specific objectives. Finally, all 
routines included in the standard library are documented in the UNIX style (.e., 


individually or grouped logically one per page specifying data types and return values). 


B. ENVIRONMENT 

As Stated earlier the library is designed to be as portable as possible, but the 
simulation was programmed with a specific family of machines in mind; the Apple 
Macintosh. These computers, especially the latest introduction -- the Macintosh II, 
represent of the current state of the art in microcomputers. The Macintosh II is a high 
resolution color system, with a 32-bit microprocessor (Motorola 68020), arithmetic 
coprocessor (Motorola 60881) and a mature graphics-based operating system. Although 
the simulation will execute on earlier models of the Macintosh, certain operations (such as 
floating point calculations) will realize an increase in speed when performed on the 
Macintosh I. 

The software was compiled using Think Technologies' LightSpeed C compiler 
environment. This version of the C programming language provides a standard C 
implementation that allows the library to be machine portable. However, the simulation 
program is machine specific because of its extensive use of the Macintosh user interface 
including resources, event management, and drawing routines. The numeric values 
produced by the standard library are scaled and processed by the simulation to produce 


results visible on the graphics display. 


Il, BACKGROUND 


A. MOTIVATION 

Communicating information about a satellite's orbit is difficult because the solution 
requires visualizing a three dimensional coordinate system, the dynamic motion of 
satellite, the rotation of the Earth, and some appreciation for the long term changes that the 
orbit is experiencing. It would be worthwhile to attempt to isolate individual aspects of the 
orbit for study and gradually add some new characteristic to the problem. This 
representation of orbital motion can be accomplished by physical models, using motors or 
lights [Ref. 1:pp.16-18] or the physical model itself can be represented by computer 
software. There are advantages to both physical and software modeling techniques. 

There is some loss of spatial information in the software model because of the two 
dimensional nature of a computer's display screen. The viewer is restricted to the view 
angles and perspective offered by the software system and is further limited by screen 
resolution, object lighting and shading models offered. To offer more vantage points or 
increase realism in the display is taxing to the computer's central processing unit and may 
slow the model so that it cannot hold the attention of the viewer for a long period of time. 

Fortunately, reality does not need to be modeled precisely if the user is provided a 
reasonable representation for the essential aspects of the orbit. If this abstraction is 
acceptable then there exist many advantages of the software model over the hardware 
implementation. The first and foremost advantage is that the algorithms, once 
encapsulated in software, are applicable to the entire class of orbits. Thus, while the 
hardware designer is still bending wires and changing gear ratios the software 


implementation, after a few changes to variables, 1s already running. 


Other reasons for adopting the software model include lower cost, lack of mechanical 
problems that are common to custom built hardware, the ability of software to preserve its 
current status for later viewing, and the reusability or extendability of the software for 
other projects. Although the physical model is useful in some circumstances (such as 
science exhibits) it is not the model of choice for an interactive demonstrator, comparing 
different orbits, or for observing the effects of small changes to the current orbit under 


study. 


B. PHILOSOPHY 

The software model chosen to represent the motion of the satellite 1s based on several 
design goals. These goals are formulated to meet the needs of the principle user, the early 
student of astrodynamics. Therefore the output produced by the model and even the 
methods used to obtain the output closely parallel the material covered during a first course 
in orbital mechanics. 

The software model provided consists of two complementary parts: the standard 
library and the simulation. The standard library is a collection of routines unified by 
common data structures that provide support for several independent functions related to 
the study of orbits. The simulation is a Macintosh-specific application that demonstrates 
the use of the standard library in the context of a major program devoted to the modeling 
of near earth satellites. 

Frequently, the methods and coordinates used by the standard library are the 
historical or classic approaches to the problem and have been superseded by more modern 
computationally intensive techniques. The standard library is based on classical 
astrodynamic techniques because the newer methods are not generally taught in 
introductory courses and the student 1s expected to learn by examining how the standard 


library operates. 


The design philosophy for the standard library is carried over into the simulation 


program. Specifically the simulation is constructed so that the program would allow: 


1. Multiple views of the same satellite, that allow viewing the satellite in the orbital 
plane while it also traces out the ground track on a mercator projection of the Earth. 


2. The representation of multiple satellites simultaneously for the purposes of 
comparison of their individual characteristics. 


3. The storage and retrieval of user defined orbits, as well as provide "canned" sample 
orbit parameters. 


4. The modification of both measurement systems and time scales for viewing 
purposes. 


C. DESIGN DECISIONS 

Although it would be ideal for the standard library and simulation to include code to 
handle every possible user's requirements, it is not realistic to expect that this can be done. 
From the outset, the standard library was designed to meet the minimum needs of a user 
being introduced to the computation of satellite orbits by obtaining data points for a 
selected set of coordinate systems. In keeping with the standard library 's pedagogical 
flavor, only truly universal constants are hard coded into the software. In other words, 
the user 1s free to experiment with planetary systems of different masses, shapes and sizes 
than the values commonly used for the Earth. 

Simplifications to boih the orbital model and software library were necessary before 
the actual coding of the software could begin. Because of the difficulty in analytically 
modeling certain orbital perturbations and the need to establish a practical limit on the 
involvement of minor effects, only the largest perturbative effect was included. While this 
simplification restricts the accuracy of the calculations to the first few orbits it does not 
violate the philosophy behind this software system. The decision was also made to 
exclude the drawing routines used by the simulation from the standard library because a 


large percentage of these routines are machine specific. 


Additionally, other computer systems may possess commercial three-dimensional 
drawing packages capable of more flexibility and speed than the methods used in the 
simulation. By acknowledging the constraints imposed on the library before the actual 
programming began, it is hoped that these design decisions will enhance the utility of the 
final product rather than allowing inconsistencies to develop between the design and the 


implementation. 


(il. EQUATIONS OF ORBITAL MOTION 


The standard library was developed based on a specific model for the motion of earth 
orbiting satellites. This model is called the two-body closed orbit problem and contains 
many of the standard simplifying assumptions used by other simulations. This chapter 
describes these assumptions and then develops the two body closed orbit equations and 
associated constants of motion. Finally, a method for modeling the most common 
perturbation to the two body orbit problem, the Earth's aspherical gravitational potential, is 


provided. 


A. THE TWO BODY CLOSED ORBIT PROBLEM 
1. Assumptions 
The easiest orbital motion to visualize is that of a single small object rotating 
around a heavier body. The more massive body is called the primary and the orbiting 
object is referred to as the secondary. This model is a fair representation for the motion of 
artificial satellites around the Earth and is composed of several simplifying assumptions. 


The most important assumptions are: 


¢ The secondary body has zero mass, and thus has no gravitational attraction on the 
primary [Ref 2:pp. 14]. 


¢ Both bodies are perfectly spherical masses, and thus can be approximated as a single 
point, located at their centers [Ref 2:pp.11]. 


¢ There are no external forces acting on the two body system and the only internal 
force present is gravitational force [Ref 2:pp.12]. 


While these assumptions sound as though the final model is far removed from 
the "real world", in actuality the results of the model can be close to empirically observed 


values. For example the mass of the secondary body (the satellite) is often insignificant in 


comparison with the mass of the Earth. The Space Transportation System (“space 
shuttle") Orbiter, which is a large satellite, has a mass of 75,000 kilograms [Ref 3:pp. 
13.6] but still represents only a small fraction (7.5 x 104 + 5.98 x1024 = 1.3 x 10-29) of 
the Earth's total mass. For earth orbits with altitudes of less than 36,000 kilometers and 
greater than 200 kilometers most external forces are small. The most important perturbing 
force in that range of altitudes is the effect of the oblate Earth. Because the Earth is nota 
perfect sphere, the magnitude of the Earth's gravitational potential changes as the satellite 
changes position. This phenomenon can be added to the basic model later but provides 
little additional insight into the fundamental problem of characterizing the motion of an 
earth orbiting satellite. 
2. The Four Basic Laws of Satellite Motion 

Within the framework of the simplifying assumptions there are four equations 
from which most characteristic equations and constants are derived. The first three were 
developed by Johann Kepler from observations about the manner that planetary orbits 


behaved. These relationships are often called Kepler's Three Laws and are expressed as: 


First Law - The orbit of each planet is an ellipse with the sun at a focus. 


Second Law - The line joining the planet to the sun sweeps out equal areas in equal 
time. 


Third Law - The square of the period of a planet is proportional to the cube of its mean 
distance from the sun. [Ref 2:pp. 2] 


The fourth basic law used to model orbital behavior is Sir Isaac Newton's law of 
universal gravitation, which states that two bodies have a mutual attractive force that is 
proportional to their mass product. This law further states that the magnitude of this force 
is inversely proportional to the square of the distance separating the objects. Obviously 
other physical laws, such as Newton's three laws of motion, must also be considered but 


these four are of special importance when modeling orbital motion. [Ref. 2:pp. 4] 


B. ORBITAL EQUATIONS 
1. The Equations of an Ellipse 

An ellipse is a closed curve that is one member of a family of curves called conic 
sections. A conic section is a curve that is created by slicing a plane through a hollow 
right circular cone at some angle [Ref. 3:pp. 2.11]. The ellipse is characterized by tracing 
a curve of constant distance from two points called foci (F and F’). The distance from one 
end of the ellipse to the other through the foci 1s called the major axis. The axis that 1s at 
right angles to the major axis and passes through the center of the ellipse 1s called the 
minor axis. There exists another axis perpendicular to the major axis, the /atus rectum, 
which passes through the focus containing the primary. The latus rectum, major and 
minor axes are often referred to by their half length distances as the semi-latus rectum, 


semi-major (a) and semi-minor (b) axes, respectively. These relationships are shown in 
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Figure fee ihe eiltase 
From this figure we can establish that a2 = b2 + c? and define a new quantity 
called eccentricity ase =c+a. For an ellipse the value of eccentricity can range from zero 


(a circle is a degenerate ellipse) and up to but not including one. [Ref. 3:pp. 2.13] 
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The point at the end of the major axis nearest the primary (F) is in general called 
the periapsis (perigee). The one at the greatest distance away from the primary is called 
the apoapsis (apogee). The eccentricity, semi-major axis, radius of perigee (Tp) and radius 
of apogee (rq) are related by: 

Ip =a (1-e) and rg =a (1+e). [Ref. 2:pp. 24-25] 

It is also useful to know the distance of the satellite from the primary at any point 
along its elliptical orbit. Figure 1 shows how the polar angle (Vv) (measured counter- 
clockwise from perigee) can be used to locate the satellite's position along the ellipse. 
This angle determines the radial distance from the primary to the ellipse by Ref. 4:pp. 82]: 

r=p+(l1+ecos Vv), where p =a(1-e2) is called the semi-parameter of a conic. 

This distance may be expresses as two Cartesian coordinates (discussed in the 
next chapter) by [Ref. 4:pp. 82]: 

Xq = (p cos v) + (1 +e COs V) 


Yq = (p sin v) + (1 +e cos V) 


2. Orbital Constants 

Leaving the geometric interpretation of a satellite's orbit for the moment, there 
are several constants that describe important physical properties of the satellite. These 
properties are often called constants of the motion . 

The force that the primary exerts on the orbiting object is manifested as the 
gravitational potential. For the restricted two body problem, where the mass of the 
satellite is essential zero, the universal gravitational constant (G) and the Earth's mass 
(Mearth) are often combined into a single constant (u = GMearth = 3.986012 x 10° 
km3/sec2) called the gravitational parameter. There is a unique gravitational parameter 


associated with every primary body. [Ref. 2:pp. 14] 
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Fineness means of expressing the gravitational force associated with the primary 
body is called the constant of gravitation (k). The constant of gravitation is often left as k2 
to avoid the requirement of obtaining the square root. This value is also local to the 
system under study and is [Ref 4:pp. 23]: 

k = V ((G Mearth) + earth>) » Where dearth is the Earth ‘a semi-major axis. 

For elliptical orbits there are some values which are constant, regardless of the 
satellite's position. Specific mechanical energy (€), specified as energy per unit mass, 1s 
constant throughout the orbit of the satellite. Since total energy consists of kinetic and 
potential terms, the satellite must “trade off" one form of energy for another as it changes 
position and distance. This relationship is given by [Ref. 2:pp. 16]: 

€ = (v2+2)+ (+n) 

The angular momentum vector (h) is another orbital motion constant. Angular 
momentum is the cross product of the satellite's position (r) and velocity (v) vectors. 
Both of these vectors are measured with the center of the primary as their origin. The 
magnitude of the angular momentum vector is [Ref. 2:pp. 18]: 

h=rvcosw 

Figure 2 shows how the flight-path angle (y) is defined as the angle measured 
from a line perpendicular to the position vector (called the focal horizontal) to the velocity 
vector. The flight path angle will vary as the satellite orbits the Earth because r and v are 
also changing. One method of computing the magnitude of angular momentum is to select 
the distance and velocity at either perigee or apogee. The flight path angle at these 


positions is the same as the local horizontal (cos 0° = 1) and: 


h=Tperigee Vperigee ='apogee Yapogee [Ref. 2:pp. 18] 
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Figure 2. Relationship of Flight Path Angle to 
Position (r) and Velocity (v) Vectors at Two Selected Locations 


3. Relationships between the Constants of the Motion and Geometry 

By knowing some of the physical interpretations of the orbit and the geometric 
properties of an ellipse, it is possible to define several important new equations. Each of 
these relationships can, in turn, produce other ways of representing information about 
some special satellite orbits, such as circular orbits and escape velocities. 

One important attribute of a satellite's orbit is the period (P) or time that the 
satellite takes to make one complete revolution around its primary. Earlier it was stated (in 
Kepler's Second Law) that the orbits of two satellites around the same primary were 
related by their periods and their mean distances from the primary. Because of this 
relationship it is possible to derive an equation that calculates the period of any satellite 
solely in terms of its semi-major axis (a) and the characteristics of the primary body (2) it 
is orbiting. This equation is [Ref. 2:pp. 33]: 

P=2nal-5+ Vu 

The addition of a definition for a new constant called the mean motion (n = Vp + 

a!.5) allows a more compact representation of the period as [Ref 2:pp. 185]: 


P=2Z20/n 
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A measurement that is related to period is the number of revolutions that the 
satellite makes around the Earth per day. The number of revolutions per day is simply 
obtained by dividing the length of the day by the period of the satellite. Unless the orbit is 
exactly circular, the satellite's speed or magnitude of velocity (v) is not constant as the 
satellite moves around the Earth. A satellite will move at a greater velocity the closer it is 
to the Earth and will move slower the further that it moves away from the Earth. Itis still 
possible to calculate the satellite's speed (v) at any position (r) along the orbit (even if it is 
not a perfect circle) by using relationships similar to those used to derive a formula for the 
period. This relationship is called the vis-viva law or energy integral and is [Ref. 4:pp. 
344]: 

v? =u ( (2+r) - (1+a) ) 

The escape velocity is the amount of energy necessary to cause the satellite's 
kinetic energy to overcome the gravitational attraction of the primary. By allowing the size 
of the orbit to become infinite (1.e., a > °°) we can also obtain an equation for calculating 
a Satellite's escape velocity. While this quantity is not directly related to the closed orbit 
problem, it does compute how much additional velocity (Ves¢ - v) would be required to 
launch a deep space probe from a given position (r) along the orbit. The equation for the 
total magnitude of velocity required to escape the Earth's gravitational field is [Ref. 2:pp. 
35]: 


Vescape = Vu (2+7) 


4. Earth Coverage and Line of Sight Distance to the Horizon 
The operating altitude of a satellite above the Earth's surface is an important 
consideration when choosing the satellite's orbit. Most satellites either observe the 


surface of the Earth directly or have signal strength and area coverage requirements for 
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communication with ground stations. More of the Earth's surface will be visible the 
higher a satellite is placed in orbit. Conversely, the level of detail or signal strength will 
decrease as the satellite is moved away from the Earth. 

The farthest position on the surface of the Earth that is still visible to the satellite 
is called the line of sight distance to the horizon. The Earth's atmosphere may decrease or 
attenuate the signal below measurable levels before the satellite 1s below the horizon. 
Here, an angle above the horizon (¥) is specified above which the signal will remain strong 
enough for detection. The line of sight distance formula can be calculated by use of the 


Law of Sines and the relationships shown in Figure 3. 
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Figure 3. Line of Sight Distance (9) to the Horizon. 


Another important orbital radius (r) selection criterion is the amount of the 
Earth's surface a satellite is capable of observing. The distance that a satellite can view 
from one horizon to another ( normally taken at right angles to the motion of the satellite ) 
is called the geometric swath width (GSW). This distance is an approximation because it 
assumes that the Earth is a smooth sphere and does not consider any sensor view angle 
restrictions that may exist. The equation for geometric swath width is [Ref. 5:pp. 40]: 


GSW =2 fearth cos’! (tearth +1) 


A Satellite in general is moving relative to a given location on the Earth's surface. 
The geometric swath width will form a path ("swath") of coverage over the Earth's surface 


that describes the satellite's useful coverage or field of view. 


C. TIME 

Throughout the discussion so far the measurement of specific values for a satellite has 
been taken at specific positions along the satellite's orbit. Therefore the notion of when 
the particular measurement was taken has not yet been introduced. Adding time as an 
additional coordinate element provides a tool for determining the satellite's position at a 
time other than when the measurement was taken. 

Local time changes with an observer's longitude on the Earth's surface so there is a 
necessity for an absolute time system and an easy means to convert to and from this time 
scale. The most common units for measuring time are hours, minutes and seconds. 
However, because of the definition of a day as one rotation of the Earth, it is also possible 
to consider time as an angular measure of degrees or radians [Ref 4:pp. 235]. This 
relationship allows an easy conversion to and from location (longitude) and local time. 

Unfortunately, the concept of time is also clouded slightly because a day is most 
commonly measured by the direction of the sun from an observer but a day is more 
correctly (for the purposes of orbits) measured by the position of the stars. The difference 
arises because as the Earth rotates counter-clockwise around its axis it is also orbiting 
around the sun The solar day is about 3 minutes 57 seconds shorter than the sidereal day, 
which is measured relative to the stars. [Ref. 2:pp.101] 

1. Solar Time 

The solar day begins at midnight, which is when the sun is exactly opposite its 
noon (directly overhead) position. However, the solar day is not constant because the tilt 


of the Earth's equatorial plane and elliptical shape of the Earth's orbit cause some slight 
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variations in the length of each day of the year. Therefore an average measure, called the 
mean solar day was established as being equivalent to 1.0027379093 days of sidereal time 
[Ref. 2:pp. 101]. Two commonly used time systems are defined by using different 
reference points and mean solar time: Standard time and Universal time. 

Standard (or local) time is the time that is measured by an observer at the 
observer's longitude on the Earth's surface. The Earth is divided into 24 time zones, 
spaced 15° apart, that are each equivalent to one hour of solar time. Local time zones are 
the most common form of time keeping and keeps the hour of the day roughly matching 
the position of the sun (at a specific latitude) over the Earth's surface. 

The concept of Universal (or Zulu or Greenwich mean) time is the measuring of 
time from one specific meridian (the Greenwich meridian, defined to be 0° Longitude), 
regardless of an observer's location. This allows a common system of units for 
communicating the measurement of time without having to consider the effect of local time 
zones. To convert from Local time to Universal time (UT) all that must be fone is add to 
the Local time the number of time zones (hours) that the local meridian is to the west of the 
Greenwich meridian. For example, at 1:18 P.M. in Monterey, California (approximately 
122° West = 122° + 15° = 8 whole time zones ), the time is 1:18 + 8 hrs or 9:18 P.M. 
Universal time. Time is normally stated in standard time (1.e., without daylight savings 
time) and by 24 hour clock, so 9:18 PM UT is expressed as 21:18 hours UT. [Ref 2:pp. 
103] 


2. Sidereal Time 
Sidereal time is the time reference used for calculating the orbit of a satellite 
because this time system is the natural system for determining the motion of the satellite. 
The sidereal day, by definition, begins when the Greenwich meridian is aligned with a 


fixed direction called the vernal equinox. Vernal Equinox is the point where the sun 
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crosses the celesnal equator from south to north [Ref. 4:pp. 8] To convert from solar time 
to sidereal time, the solar tme must first be converted into Universal time and then 
adjusted to determine sidereal time. This adjustment is a physical characteristic of the 
Earth and is measured by observatories and compiled into the American Ephemeris and 
Nautical Almanac {Ref 4:pp. 235]. 

Once again there exists the concepts of universal (Greenwich Sidereal) and 
position dependent (Local Sidereal) time. The Greenwich Sidereal time (Og) is the value 
that is measured and tabulated in almanacs for use in converting from solar to sidereal time 
svstems. Because the measurement of sidereal time is based on the position of the stars 
from a specific location on the Earth's surface, Local Sidereal time is often expressed as an 
angular measure (Ap), called the Local Hour Angle (LHA). Local sidereal time may be 
computed by: 

0=O05+AE 

If Grzenwich Sidereal time is not known, but Universal Time (solar time) is 
available, then a good approximation for local sidereal time is still obtainable. This is 
accomplished by calculating the time difference between a known value (O90; found in the 
Nautical Alma.1ac) and the current time according to the following formula: 

9 = O59 +p’ (t- to) + Af , where p' is the angular rotation rate of the Earth, t - tg is 
the time difference from the specified time (t) to a known Greenwich Sidereal time (to). 


The values for 890 are generally compiled when tg is 0000 hrs UT. [Ref. 2:pp. 100] 


D. CANONICAL UNITS 

A topic that is closely related to the physical characteristics of a satellite and its 
primary 1s the use of system specific measurement units called characteristic or canonical 
units. Canonical means that the fundamental measuring unit for everything in the orbit 


system is based on the primary's radius and a special orbit called the reference orbit. 
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This conversion from more commonly used units, such as the metric system, to 
canonical units is really just a mathematical convenience and does not change the basic 
relationships in any way. Canonical units simplify many of the basic formulas and are 
used by many complex orbital models to increase computational efficiency. The standard 
library is not optimized for speed but is intended to demonstrate the fundamental concepts 
behind the computation of orbits. Therefore all input and output is specified in more 
familiar metric units. Additionally, routines for conversion between canonical and metric 
units 1s provided for general use in the library. 

Distance units are based on the mean equatorial radius of the Earth (rearth = 6378.145 
km); thus a satellite at an altitude of 750 km is at (750 + rearth)/ Tearth = 1.117589 Earth 
radii or distance units from the center of the Earth. Time units are specified by using the 
speed of a hypothetical circular orbit that is located at the Earth's surface (r = rearth). If 
the speed of the orbit is defined such that the satellite's period is exactly 27, then the time 
unit (t, called a herg ) is equivalent to t = reqrth! + Vu = 806.8118744 seconds. Asa 
consequence of the above relationships, the canonical speed unit (distance + time) 1s 


7.90536828 km/sec in metric units. [Ref 2:pp. 40-43] 


E. CORRECTION FOR ASPHERICAL GRAVITATIONAL POTENTIAL 
As was initially stated, the two body closed orbit problem simplified the modeling of 
orbits at the expense of a more exact representation of the real world. There are some 
significant aspects of orbital motion that this simple model cannot describe. These 
deviations are often called perturbations, because they cause the satellite to follow a path 
that is different from the one expected by the simple two body model. [Ref. 2:pp. 385] 
Some examples of perturbations are radiation pressure from the sun, changes in 
gravitational influence, and atmospheric drag. One possible form of a changing 


gravitational influence is the presence of other astronomical bodies. Correction for this 
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perturbation is not done by the standard library because of the small magnitude of changes 
involved (especially for low earth orbits) and the complications that would have to be 
added to the introductory astrodynamics presented in the standard library. To properly 
account for the force of atmospheric drag, the model must calculate the density of the 
atmosphere at high altitudes. The standard library and most predictive models of satellite 
motion avoid the difficulty in modeling the upper reaches of the atmosphere by ignoring 
the lowest orbital altitude regime and only model satellite orbits at altitudes greater than 
850 glometere [RefOsepee | 
Unless the satellite is in an extremely low orbit and experiencing atmospheric drag, 
the largest perturbative force results from the Earth being slightly more massive around the 
equator. Because the mass of the Earth is distributed non-uniformly, there are slight 
deviations in the gravitational attraction of the Earth at different locations. This aspherical 
gravitational potential results in two distinct changes to a satellites orbit: a gradual rotation 
of the orbital plane (regression) and a rotation in the orientation of the ellipse [Ref. 2:pp. 
156-159]. These effects are discernible over several orbits, therefore it is important that 
the library provide a mechanism to calculate this effect. The mass distribution of the Earth 
is irregular in «very direction, but is most affected by latitude. The model commonly 
chosen to represent the Earth is axially symmetric with different variations in mass 
distributions for each hemisphere. The model's mathematical foundation is an infinite 
series representing the Earth's gravitational potential [Ref. 4:pp. 174]: 
U = (k2 Mearth +2) (1 - Dpeg (Ip = rk) Py sin 8] where J,), J,), ..., are the 
coefficients of the Earth's gravitational potential called the zonal harmonics, and Pp», P3, 
..., are Legendre polynomials. 
Although this equation is not used directly in the standard model, its formulation 1s 
presented because this representation is the basis for the development of the equations for 


two body perturbed motion. 
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IV. CELESTIAL COORDINATE SYSTEMS AND TRANSFORMATIONS 


There are many possible coordinate systems that can be used to describe the position 
and motion of an earth orbiting satellite. All coordinate systems used by this library are 
orthogonal, that is each of the three unit vectors are mutually perpendicular, and 
additionally the unit vectors also follow the "nght hand rule” convention in their ordering. 
The three most common fundamental planes for these systems are the orbit itself, the 
Earth's equatorial plane and an observer's (on the Earth's surface) horizon. The 
fundamental plane always establishes one vector normal to the plane but there is sull much 
freedom of choice for the two remaining in-plane vectors. The geocentric-equatorial, nght 
ascension-declination, geographic, topocentric, and perifocal coordinate systems are 
directly supported by the standard library. Many of the other possible coordinate systems 
can be derived easily from one of these five if they are required. 

An important coordinate system property is whether the coordinate system is inertial, 
quasi-inertial, or not inertial at all. Inertial systems can be defined as having axes that are 
not in accelerated or rotational motion [Ref. 2:pp. 9]. The study of mechanics is greatly 
simplified in inertial or quasi-inertial (approximations to inertial) coordinate systems 


because the terms resulting from rotational motion do not have to be considered. 


A. GEOCENTRIC-EQUATORIAL (IJK) COORDINATE SYSTEM 

The geocentric-equatorial coordinate system is probably the most obvious one; it is 
simply the two dimensional rectangular coordinate system extended into three dimensions. 
Figure 4 shows how this coordinate system uses the equator of the Earth as its 


fundamental plane (with the z-axis normal to the plane and pointing towards the celestial 


a 


north pole) and the x-axis points in the direction of vernal equinox. The unit vectors I, J, 
K are often used as the shorthand notation IJK for referring to a satellite's position 


(x,y,z) in the geocentric-equatorial coordinate system. [Ref. 2:pp. 54-57] 


(vernal equinox) 





Figure 4. Geocentric-Equatorial Coordinate System 


B. RIGHT ASCENSION-DECLINATION (R.A.-DECL) COORDINATE 

SYSTEM 

The right ascension-declination coordinate system is most commonly used by 
astronomers to catalog the positions of stars and other heavenly bodies. In this system the 
position of an object is obtained by projecting the pointing vector for the object against a 
sphere of infinite radius (the celestial sphere) and determining two angles called nght 
ascension (a) and declination (5). These angles are measured positive upward from the 
equatorial plane and counter-clockwise positive from the vernal equinox. The origin of the 
coordinate system can be chosen as the Earth's center, the observer's position, or any 
other arbitrary point because the celestial sphere is infinitely large Ref. 2:pp. 56-57]. The 
distance from the object to the chosen origin is called the radial distance (r) and is an 


essential element when translating into other coordinate systems using different origins. 


Hag 


The right ascension-declination coordinate system shares a common principle pointing 
direction (i.e., in the direction of vernal equinox) with the geocentric-equatorial coordinate 


system as is Shown in Figure 5. 


celestial sphere 


(vernal equinox) 





Figure 5. Right Ascension-Declination Coordinate System 


C. GEOGRAPHIC (¢Ah) COORDINATE SYSTEM 

The geographic coordinate system uses the equator of the Earth as its fundamental 
plane and the Greenwich (Prime) meridian as the direction of its principle pointing vector. 
This is not an inertial system as the Greenwich meridian rotates through 360 degrees every 
solar day [Ref. 4:pp. 96-97]. The coordinates in the geographic system are longitude (east 
or west), latitude (geocentric or geodetic), and altitude above the Earth's surface. It is a 
matter of preference whether longitude is specified between -180 and 180 degrees when 
measuring longitude from east to west (such as is used in the American Ephemeris and 
Nautical Almanac [Ref. 4:pp. 97]) or if an east/west longitude convention is used 


exclusively and longitude is allowed to assume values from 0 to 360 degrees. 
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The standard library adopts the common convention of using east longitude (Ap) 
exclusively. Thus all longitudes are measured counterclockwise frorn the normal vector of 
the fundamental plane (1.e., the equatorial plane). 

Latitude measurements also suffer from complications because the Earth is not a 
perfect sphere. Geocentric latitude (9g) is the angle measured from the equatorial plane to 
the position vector of the object being referenced (generally an observer's position on the 
Earth's surface) [Ref. 4:pp. 97]. This angle can be considered to be referenced from a 
perfectly spherical Earth and is the latitude most easily obtained from spherical 
trigonometry. Geodetic latitude (d) 1s measured from the equatorial plane to the normal 
vector at the observers position on a "reference ellipsoid". The reference ellipsoid is an 
approximate model of the Earth's oblateness based on an ellipse rotated around the Earth's 
axis. Geodetic latitude is the commonly referred to latitude found on most maps and 
charts of the world. [Ref. 2:pp. 94] 

Astronomical latitude, another type oi latitude sometimes used, 1s an angle measured 
between the direction of the local gravitational field and the equator. Since astronomical 
latitude deviates only slightly from the reference ellipsoid [Ref. 2:pp. 94] it is not used by 
the standard library. 

Because altitude is the object's distance above the reference ellipsoid, the altitude 
specified in this coordinate system is dependent on which form of latitude is being used. 
If geocentric latitude (9g) is specified then the altitude (hg) iS measured above a reference 
sphere of constant radius (Re = 6371.066 km) [Ref. 6:pp. 24]. For geodetic latitude (6) 
the altitude (h) 1s the difference between the object's radial position and the ellipsoid radius 
at the specified latitude (see Figure 6). To further refine altitude by taking the rregularity 
of the Earth's surface into account (e.g., mountains and valleys) either the observer must 
have knowledge of the Earth's topography at that latitude and longitude or a complicated 


model of the Earth's surface must be developed. The standard model simply provides 
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altitude measured from the standard ellipsoid (or sphere); it is the responsibility of the 


using program to further refine that value. 


Greenwich 
meridian 


Reference 
Ellipsoid 





Figure 6. Geographic Coordinate System 


D. TOPOCENTRIC (SEZ) COORDINATE SYSTEM 

Another coordinate system that is inherently non-inertial is the topocentric coordinate 
system. The topocentric coordinate system uses the observer's position as its origin, and 
the observer's horizon as its fundamental plane. Figure 7 shows the Zp, vector as the 
normal vector pointing upwards from the surface of the Earth and the two in-plane vectors 
(Xp. Yn) pointing positive towards the south and east, respectively. The coordinate 
axes, SEZ (south, east and up), are generally used as shorthand notation for the 
topocentric coordinate system. [Ref. 2:pp. 84] 

This coordinate system is extremely useful because most methods of determining 
satellite orbits rely on radar or visual sightings from observer stations that are on the 
Earth's surface. Position information is provided as range (p) and two angles which 
specify the direction from which the range information is obtained. These angles are 


azimuth (Az, measured clockwise from -S) and elevation (Ej, measured from the 
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horizontal plane). Velocity can be specified as the time rate of change of each of the 


position elements (p', Az’, and E7). 


North 





Figure 7. Topocentric Coordinate System 


E. PERIFOCAL (PQW) COORDINATE SYSTEM 

The perifocal coordinate system 1s perhaps the most familiar coordinate system to the 
introductory student of astrodynamics. The fundamental plane is the orbit itself, with the 
principle direction (P) pointing towards the point of the satellite's closest approach to the 
Earth (periapsis). The center of the Earth is the perifocal coordinate system's origin and is 
also one foci of the ellipse. The other in-plane vector (Q) is established at a nght angle (in 
the direction of orbital motion) to the principle vector. The remaining vector is chosen so 
that these vectors will form a nght-handed orthogonal coordinate system, Figure 8. 
Because of the commonly used designation for the perifocal coordinate axes, this system 
of coordinates is often referred to as the PQW coordinate system. The position and 
velocity elements in this coordinate system are denoted by (xq, Yq, Zq ) and (Xq. Yq; 
Zqy ), respectively. This coordinate system allows the two-body motion of a satellite to 


remain within the fundamental plane (the W components are exactly zero). This 1s 
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valuable for simplifying the amount of calculations necessary for the orbit prediction 
problem. It is worth noting that periapsis is not defined for a circular orbit (e = Q) and 
complicates the use of this coordinate system for orbits with low eccentricities. [Ref 4:pp. 


ipl] 


periapsis 


Direction of 
Rotation 





Figure 8. Perifocal Coordinate System 


F. KEPLERIAN ELEMENTS 

A set of orbital elements with great historical interest are the Keplerian or Classical 
Elements. These elements are often used to define the relationship between the orbital and 
the equatorial planes and are defined as the semi-major axis (a), eccentricity (e), inclination 
(i), longitude of the ascending node ((29), argument of perigee (Wo), and time of periapsis 
passage (T) [Ref. 2:pp. 58]. The concepts of semi-major axis, eccentricity and inclination 
have been already introduced, and with the use of two new angles (longitude of the 
ascending node and argument of perigee) will define the rotation of the orbital plane from 
the equatorial plane. The longitude of the ascending node is the angle, measured 
counter-clockwise, from vernal equinox to the orbit'’s northward crossing of the equator. 


The vector from the center of the Earth to this point is called the line of nodes. The 


aj} 


argument of perigee, an angle measured counter-clockwise from the line of nodes to 
periapsis, is the final angle necessary to determine the orbital plane. These relationships 


are illustrated in Figure 9. 
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Figure 9. Keplerian Elements 


The sixth element (time of periapsis passage) determines the !ocation of the satellite 
along the orbit. The reason that subscripts exist on the symbols for argument of perigee 
and longitude of the ascending node is because they are more changeable with respect to 
time than the remaining elements. The other five Keplerian elements (or any other orbital 
element set) are defined at a time called epoch. The time of periapsis passage can be 
expressed as the instant in time that the satellite is at perigee [Ref. 2:pp. 60]. If the epoch 
time does not correspond with the time of periapsis passage, then two separate values 
(anomaly and arbitrary epoch time-tg) would be required to define the time element [Ref. 
6:pp. 58]. Anomaly is an angle measured in one of three standard ways that defines the 


location of the orbiting object from the perigee position. 
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There are three common measurements of anomaly called the true anomaly, eccentric 
anomaly and mean anomaly. The true anomaly (vo) has a direct geometric representation 
and is simply the polar angle that is measured from perigee to the object's position. The 
eccentric anomaly is determined by projecting the orbital path of the satellite against an 
auxiliary circle with a radius equal to the semi-major axis of the orbit. This relationship is 
illustrated in Figure 10. For circular orbits the auxiliary circle is the real orbital path and 


the eccentric anomaly is identical to the true anomaly. 


perigee 


/ 
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orbi 


auxiliary circle 





Figure 10. True Anomaly ( v ) and Eccentric Anomaly (E) Relationship 


A satellite does not travel at uniform speed in an elliptical orbit, therefore the rate of 
change of the true anomaly will also vary. The mean anomaly (Mo) measures the object's 
position from perigee along a hypothetical orbit of uniform average speed (called the mean 
motion constant; n). Mean anomaly has no geometric interpretation but is defined in 
general (for any arbitrary time, t) by the equation: 


M=n(t-T)=M,+n(t- to) =E-esinE 


Zo 


The last equivalence is the common form of expressing Kepler's Equation or the 
so-called Kepler problem. Because this equation relates position (E) and time (Mo, to, 
and t) it provides a formula for predicting the position of a satellite at any time. This 
formula requires finding a solution for eccentric anomaly by using these other (known) 
values. Since E is expressed by a transcendental function and a polynomial of degree one, 
a closed form solution to this equation does not exist. The search for an efficient method 
to solve this equation is the reason that this formula has come to be known as the Kepler 
problem [Ref. 2:pp. 220]. The analytical and numerical solutions to the Kepler problem 
are useful for predicting the position of a satellite at a time other than epoch. and several 


solutions will be discussed in the next chapter. 


G. TRANSFORMATION FORMULAS 

Several formulas for transforming position from one coordinate system to another are 
provided based on the coordinate systems defined in this chapter. The first few 
transformations make use of Keplerian elements as well as system coordinates, but the 
remaining transformations are defined solely by individual coordinate systems. If an 
explicit transformation is not listed, then it is generally possible to obtain the desired 
coordinate system via one or more intermediate transformations. As a source of additional 
transformations, an appendix to Escobal provides a compilation of no less than thirty-six 
basic coordinate transformations [Ref. 7:pp. 393-422]. 

1. Keplerian to PQW 

Using true anomaly (v) or eccentric anomaly (E) the three PQW position 


elements are [Ref 2:pp.45-46]: 
Xq) =I cos V =a (cos E- e) 


Ym =rsin v=a (sin E V(1 - e2) ) 
Zqy = O 
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2. PQW and Keplerian to IJK 
Using argument of perigee (@q), longitude of the ascending node (229) and 


inclination (i) the three IJK position elements are [Ref 6:pp. 62-64): 


Use transformation | to obtain xc and yq. 


X = Xq (cos WQ cos QQ - sin MQ sin QQ cos 1) 
+ Yq (-sin MQ cos Qg - cos MP sin QQ cos 1) 


Y = Xq (cos Wg sin Qo + sin wp cos Ng cos 1) 
+ Yq (-sin OQ sin QO + cos WOE cos Qo cos 1) 


Z = Xq (Sin WO Sin 1) + Yq (COS WO sin 1) 


3. IJK and Keplerian to PQW (inverse of transformation 2) 
Using argument of perigee (Wo ), longitude of the ascending node (QQ) and 


inclination (i) the three PQW position elements are [Ref 7:pp. 417-418]: 


Xq = X (cos WV cos QQ - sin WO sin QQ cos 1) 
+ y (cos 9 sin Qo9 + sin wg cos Qo cos 1 
+ Z (sin @Q sin 1) 
Yq =X (- sin WP cos QQ - cos WO sin Q0 cos 1) 
+ y (- sin M9 sin Q¢ + cos MQ cos Qo cos 1) 
+ Z (COS MQ sin i) 


Zq) = X (sin Qg sin 1) + y (- cos Q¢ sin 1) ) + z (cos 1) 


4. SEZ to IJK 
Using geodetic latitude (9g); the Earth's equatorial radius (ae = 6378.145 km), 
the Earth's polar radius (be = 6356.785 km) and the reference ellipsoid's eccentricity (€e = 


0.08182) the three IJK position elements are [Ref 2:pp. 85-101]: 


The topocentric position vector p is obtained first by p=psS+pRpE + p7Z 
where: 

Ps =-pcos Ej; cos Az 

PE =pcos E| sin A, 

PZ =p sin E) 
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Now, by making use of geodetic latitude ( Og) and defining local sidereal time (8) as 
0=6.+AR (Oo is the angle between I andthe Greenwich meridian at epoch and Ag 
is the east longittide of the observer) we find: 

X =ps (sin Og cos 8) + pR (- sin @) + p7 (cos 6 cos 8) 

y = Pc (sin dg sin 8) + ORF (cos 9) + P7 (cos Og Sin 9) 

Z= Ps (- cos Og) + PZ (sin Og) 


The observer position_(or station coordinates) in LJK coordinates 1s: 
x, =| (ae / (1 - ee* sin* Og )*/*) + hil cos Ge 
Zr =| ((ag (1 - €g2)) / (1 - €e* sin? Og )!) Fh! sin Og 

XS =X; (cos @) 

VS =X; (sin 9) 

oe ol 


5. Right Ascension-Declination to IJK 
Using spherical trigonometry, the three IJK position elements can be obtained 


by [Ref 4:pp. 105]: 


X=rcosdcos @ 
y=rcososing 
z=rsino 


6. IJK to Right Ascension-Declination (inverse of transformation 5) 
Using spherical trigonometry, the three Right Ascension-Declination 


position elements can be obtained by [Ref 7:pp. 397-398]: 


i= (x2 fe y2 He z2)1/2 
a = tan7!(y/x) where 0° < a < 360° 
§ =tan-l(z/ (x2+y2) 1/2 ) where -90° <6 < 90° 


7. IJK to Geographic (oAh) 
By computing the displacement effect of the Earth's rotation, the three 


Geographic position elements can be derived from [Ref 6:pp. 77-78]: 


QO =PQ + P'(t- tg) where tg is the time when the Greenwich meridian is aligned with 
the I axis (“sidereal epoch") and p'=7.292115856 x 107° rad/sec is the Earth's rotation 
Fale .0 = 0 = 360y) 


Xearth = X (cos 0) + y (sin p) 
Yearth = X (- sin p) + y (cos p) 
Zearth = 4 


r= Xearth” am Yearth” + Zearth” 


o= sin’! (Zearth / T) 
d= tan"! (yearth / Xearth) 
h =r -Tearth » Where rearth 1S the mean radius of the Earth 


To _ from geocentric Hane ute to geodetic latitude/altitude [Ref. 6:pp. 27]: 


Og = [ tan > + (1-€earth?) ] 
he = =r- Pm 6 ) , where rearth iS the radius of the ellipsoid representing the Earth 
aS a function of fati titude. 


8. Geographic to IJK (inverse of transformation 7) 
By computing the displacement effect of the Earth's rotation, the three [JK 


position elements can be derived from [Ref 7:pp. 399-400]: 


If the geographic coordinates are given with respect to geodetic latitude (Og, hg,A) they 
must be oe into SRGORAUE latitude by [Ref 6:pp.27]: 
o=tan"! [ tan dg (1-eearth”) ], -90° So < 90° 


Tearth” = ( (Zearth, [1- (2f - f)]) / (1- Qf - £) cos? og ) 

a. +2r hg cos (0 -¢) , where r is Ine oblate Earth radius at 
earth earth ‘lg g)> aa 

latitude og, and Bis the flattening of the Earth (f = 1 - 4 (1-€earth*) )- 


0 = O05 + Ot - tg) - (360° -Ag), OFS = 3602 


Ads = 2 hie (( hg/r) sin (d - Og) . where Adg is the difference between geocentric 
latifude and declination. 


O = bg + Adg 
x =r (cos d6cos 8) 


y =r(cos 6 sin 8) 
z =r (sind) 
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V. ORBIT PREDICTION 


A. STATEMENT OF THE PROBLEM 

The problem of determining the position of a satellite at an arbitrary time (t) from an 
initial set of coordinates (measured at epoch, T) has been studied since the work of Kepler 
[Ref. 2:pp.212-222]. The classical solution is tied closely to a traditional set of 
coordinates: the so called Classic or Keplerian Elements. Consequently, the procedure 
used to obtain the satellite's ttme dependent position (as outlined below) is stated using 
Keplerian Elements. To simplify calculation of the new position, it will initially be defined 
in the perifocal (PQW) coordinate system. From the PQW coordinate system a simple 
series of transformations can be made to obtain the satellite's position in whatever 


coordinate system is desired. The orbit prediction problem may be summarized as: 


Given: The satellite positon elements a, e, 1, Q9, MO, Mo at epoch (to). 


Find: The position of the satellite at an arbitrary time (t). 


B. OUTLINE OF THE SOLUTION 
There are four distinct steps required to obtain a new position for the satellite. These 


steps are: 


1. Compute the Mean Anomaly (M) at time t 


2. Determine the Eccentric Anomaly from the Mean Anomaly (..e., use a solution to 
the Kepler Problem ) 


3. Obtain the position vector in the Perifocal (PQW) Coordinate System 


4. Transform the result into the coordinate system of choice (see section on orbital 
transformations) 
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1. Compute the Mean Anomaly (M) at Time t 

The shape of the orbit would remain constant if the satellite was a massless point 
and subject only to gravity from a point source. If this were the case, then by knowing the 
change in time from the first position, it is possible (with some difficulty) to locate the 
satellite along this perfect ellipse. This simplification is called the two body problem and 
can often result in a sufficiently accurate computation of the satellite's position. The time 
dependent nature of this relationship is represented by the time that the satellite most 
recently passed perigee and the mean anomaly. The mean anomaly (M) may be 


represented as [Ref. 2:pp. 185]: 


M =n (t- T) , where T = tg - (Mg <n) is the time of perifocal passage and n = V(u + a>) 
is the mean motion constant. | 


The most significant perturbation to add to the basic two body problem model is 
the aspherical gravitational potential of the Earth. The Earth's gravity is not constant 
because the planet's mass is not distributed uniformly. Thus, the force of gravitational 
attraction will vary periodically as the satellite makes a single revolution around the Earth. 
This type of perturbation is called periodic because the satellite deviates from its predicted 
orbit, yet returns to nearly the same location that it started from. Periodic perturbations 
typically cause no loss of the total energy for the satellite and do not cause much change to 
the values of a, e, andi. The values for Q, @, and M, however, are more easily subject to 
change by this type of perturbing force. [Ref. 6:pp. 87-89] 

In earlier discussions, the analytic solution for the aspherical nature of the 
Earth's gravitational potential was expressed as an infinite series. Changes to each orbital 
element are calculated by multiplying their rate of change by the time difference from initial 


measurement (t - t¢). 


6) 


New values of the mean anomaly, longitude of the ascending node and argument 


of perigee are found by [Ref 6:pp. 94]: 


M = Mo+ M'(t- to) 
QO = Qt OQ'(t- to) 
© = Wy) + W'(t- ty), where tg is an arbitrary epoch time and t is the instant in time 


under consideration. For the simple two body problem M' = n and Q' = w@' = 0. 


The time rate of change for each of these variables is derived from a Taylor series 
expansion that uses as many terms as needed to obtain the desired accuracy and truncates 
the remaining terms. The first approximation to the change in M, 2, and @ (due to the 


Earth's aspherical gravitational potential) is provided in Figure 11 [Ref. 6:pp. 94 - 95]. 





Figure 11. First Order Perturbative Effects 


These small changes are a function of the orbital inclination, J2 the 2nd harmonic 
coefficient (an emperically obtained constant), and p is the semi-parameter of an ellipse p = 
a (1 - e”). [Ref. 6:pp. 50] 

The expansion to higher than first order effects 1s computational much more 
difficult than this first approximation. This complexity results from the increased number 
of terms that result from the expansion to the fourth harmonic coefficient. The use of 
second or higher order expansions will increase accuracy, but the effects of the aspherical 


gravitational potential may be appreciated by simply using first order terms. 
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2. Determine the Eccentric Anomaly from the Mean Anomaly 
Because the solution to the Kepler problem (M = E - e€ sin E) 1s transcendental, 
an iterative solution based on the Newton-Raphson method of root finding is used. The 


root in question is a solution to the equation: M- E+esin E=0. This algorithm takes the 


fon ot (Ref. 2:pp. 222): 


(2) En41) = En + (M - My) = (1 - e cos Ey) , where this equation is applied initially to 
Eg = M and then reapplied until the difference between M and M, becomes small 


enough to be ignored. 


(3) If true anomaly (Vv) 1s also desired, it may be calculated from [Ref. 2:pp. 187]: 
v=cos-! [ (e- cos E) +(e cos E- 1) ] 


3. Obtain the Position Vector in the Perifocal Coordinate System 
The perifocal coordinate system (PQW) uses the orbit as its fundamental plane 
and therefore requires only two coordinates to fully specify the satellite's position. The Zy) 
coordinate is by definition always equal to zero. Based on coordinate transformation 1 


and the computed values of M, Q, and @ at time t, the position of the satellite can be 
calculated as: 
Xq =1rcos Vv =a (cos E - e) 


Yq =r sin v =a (sin E V(1 - e2) ) 
Zqy = O 


oy 


4. Transform the Result into the Coordinate System of Choice 
Because the location of a satellite might be desired in coordinates other than the 
PQW, the section that discusses coordinate system provides methods to transform PQW 
coordinates into other common coordinate systems. It 1s exactly by this method that the 
simulation, using the standard library, determines new position vectors for every 


coordinate system other than PQW. 
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VI. COMMON ORBIT CLASSIFICATIONS 


With minimal reference to the physical laws governing the motion of satellites, it is 
still easy to describe many of the fundamental characteristics of orbits. The most obvious 
attribute of a satellite is that it is constantly in motion. This motion is responsible for the 
satellite's track in the night sky and for providing the capability to match the rotation of the 
Earth. This second relationship forms the principle for global communications from 
geostationary satellites that appear to "hang" in one position over the Earth's equator. 

The question then arises concerning the determination of relative position, area 
coverage or Earth locations visited for each class of satellite orbits. It is possible to create 
a partial, qualitative list of orbits that exhibit various interesting phenomena. This list is 
provided without an excessively detailed explanation of the parameters (found in earlier 


chapters) which are required to fully describe each orbit type. 


A. ORBIT CLASSIFICATION BY ALTITUDE 
1. Low Earth Orbit (LEO) 

The lowest practical orbital altitude is normally defined to be 185 km. Orbits 
below this altitude decay rapidly due to atmospheric drag. This drag results in short 
orbital lifetimes, many of which are only a few days in duration [Ref. 2:pp. 152]. Above 
this altitude, the effects of atmospheric decay diminish rapidly, although some decay is 
still experienced by any satellite in LEO. The definition of an upper limit on altitude for 
low earth orbiting satellites is less specific than the lower one, but generally occurs around 
1,000 km [Ref. 2:pp. 153]. These orbits are characterized as being nearly circular because 


there is little variation possible between the maximum apogee and minimum perigee. 
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LEO satellites exhibit short periods (i.e., from 87 to 105 minutes) that allow 
satellites to circle the Earth many times per day. Because the satellite is close to the Earth 
this variety of orbit is often used for making observation of the Earth's surface. By virtue 
of its closeness to the Earth's surface a satellite requires less energy to reach LEO than any 
other orbit. Therefore it is often used by heavier satellites, such as manned systems, and 
as a parking orbit for satellites that are destined for higher orbits. 

2. High Earth Orbit (HEQ) 

A satellite in high earth orbit is one that spends the most of its time in altitudes 
from 5,000 to 19,300 km. A satellite is often placed in HEO to obtain a wider field of 
view of the Earth's surface or to eliminate the residual effects of atmospheric drag. 
Satellites operating at these altitudes revolve around the Earth at a slower rate than a LEO 


satellite, but in general will circle the Earth at least once per day. 


B. ORBIT CLASSIFICATION BY INCLINATION 

The inclination of a satellite is the angle that the plane in which the satellite is moving 
is tilted from the Earth's equator. Inclination can vary from 0 to 180°, where 0° is an 
equatorial and 90° is a polar orbit. Any orbit between 0 and 90° is called a posigrade orbit 
and an orbit between 90 and 180° are termed a retrograde orbit. An important property of 
inclination is that the maximum ground trace latitude of a posigrade satellite is equal to the 
satellites inclination (inclination - 90° for the case of retrograde satellites). [Ref. 3:pp. 
229) 

1. Sun Synchronous Orbit 

A special type of near circular, low earth orbit is the sun synchronous orbit. By 

definition, a sun synchronous Satellite's orbital plane is always oriented at the same angle 


from the sun. A satellite in sun synchronous orbit makes use of perturbations due to the 
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oblateness of the Earth. The perturbative force causes the regression of the line of nodes 
(the orientation of the satellite plane) to match the rate that the Earth is revolving around the 
sun (i.e., about 360° + 365.25 = 0.9856 degrees/day). Depending on altitude, a sun 
synchronous satellite will require an inclination of 95-105 ° to achieve the proper rate. [Ref 
3:pp. 2.42-2.44] 

A sun synchronous orbit can be selected so that the satellite is always passing 
over a given point on the Earth's surface at the same local time. This orientation is ideal 
for photographic missions, such as polar orbiting meteorological satellites, that require 
repetetive views of the same surface area under the same sun angle conditions. [Ref. 3:pp. 
2.44] 

2. Molniya Orbit 

Another less desirable change in the orientation of orbits caused by the 
oblateness of the Earth is the rotation of the line of apsides. Since the line of apsides is the 
semi-major axis, this rotation will change the orientation of perigee and apogee. This 
motion, that varies in strength depending on inclination, must be compensated for by 
satellites that are trying to maintain their orientation over a location on the Earth's surface. 
The sun synchronous orbit avoided this problem by requiring a circular orbit so that 
perigee is an undefined quantity and for most purposes the satellite's orientation remains 
unchanged. 

If, however, a long duration is required over the same portion of the Earth's 
surface either a geosynchronous orbit cr an elliptical orbit with its characteristically large 
percentage of time spent near apogee may be used. There is a critical angle of inclination 
(63.43°) where the line of apsides will not change orientation [Ref. 8:pp.17]. A satellite 
with this inclination and a 12 hour period is commonly referred to as a molniya orbit, so 


called because it was first used by Soviet spacecraft instead of the geosynchronous orbit. 
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This orbit is much less expensive to achieve than geosynchronous and is also capable of 
providing direct overhead coverage at latitudes off the equator. 
C. ORBIT CLASSIFICATION BY PERIOD 

The period of a satellite is determined solely by its semi-major axis so the satellite 
may either be in a circular or an elliptical orbit. In general a satellite is classified according 
to period by dividing the orbital period into the length of the sidereal day. The result of 
this operation is either integer, rational, or irrational. Integer orbits exhibit ground trace 
patterns that repeat in 1 day cycles whereas irrational orbits do not trace any discernible 
pattern on the Earth's surface. Rational orbits fall somewhere between and may require 
many days before the orbit begins to repeat the ground trace pattern. [Ref. 5:pp. 83-99} 

1. Geosynchronous Orbit (P=23 hr 56 min) 

The geosynchronous orbit is an orbit whose period is identical to the length of 
the sidereal day. If the orbit has a non zero inclination the ground trace will be a figure 
eight that may be symmetric (circular orbits) or asymmetric (elliptic orbits) about the 
equator. As the inclination for a circular orbit is decreased, the satellite's orbit will trace 
smaller and smaller figure eights until a limiting case of the geosynchronous orbit is 
reached. 

This orbit, the geostationary orbit, gives continual direct overhead coverage to 
one particular location on the Earth's equator from an altitude of 35,768 km. At this 
distance the satellite is capable of viewing about 1/3 of the Earth's surface but is incapable 
of providing direct line of sight coverage to the polar latitudes. [Ref. 8:pp.9] 

2. Semi-synchronous Orbit (P = 11 hr 58 min) 

The semi-synchronous orbit is interesting because it is a compromise between 

the coverage offered by the geostationary satellite versus polar coverage and much lower 


launch to orbit expenditures. Many new satellite systems, such as the NAVSTAR GPS 
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navigation satellites are using semi-synchronous orbits to take advantage of these features. 
Because a single satellite is no longer capable of providing continuous coverage for a 
specific location, NAVSTAR GPS requires 6 orbital planes of three satellites each for a 
total of 18 satellites. [Ref. 3:pp. 12.7-12.8] 
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Vil. IMPLEMENTATION 


A. INTRODUCTION 

The purpose of building the standard library 1s to provide a common mechanism for 
processing information about orbits for many application programs. Coincident with this 
purpose is the desire to promote the use and further development of the library to meet the 
needs of its target audience. Since ne intended user is the student of orbital mechanics, 
and is not a computer programmer or developer of a real time satellite control system, the 
library uses many analytic techniques which have been long since discarded by these other 
communities. 

The designed objective of the standard library is to provide a readable collection of 
functions capable of supporting several orbit models ranging from elementary to "real 
world”. To achieve a high degree of readability for code written in the C programming 
language is not an easy task. First, a discipline of indenting nested structures was used to 
more Clearly demonstrate the scope of variables and expressions. Secondly, many of the 
standard" C shortcuts such as nesting assignment statements inside of logical expressions 
or auto-incrementing variables were prohibited from the library source code. Liberal use 
of "white space" and header comments was used to enhance the identification of function 
boundaries and provide a brief synopsis of the task performed by each function. Finally, 
no C optimization techniques were allowed because they would require an increased level 
of programming sophistication on behalf of the reader. 

Functions that make use of values created by other library functions use the same 
invocation techniques as the user. In other words, the standard library follows the 


philosophy of writing to a non-programmer audience by avoiding shortcuts which would 
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unintentionally obscure the meaning of the function from the user. The meaning of each 
function is therefore more important than the overhead created by this calling discipline. 
The standard library was designed by making use of the programming practices of 
developing multiple layers of abstraction and functional decomposition. Layers of 
abstraction are realized by hiding the implementation of each function from the user and 
requiring the user to access each particular fact concerning an orbit via the standard hbrary 
interface. In many cases the user is supplied with a return value unaware that the function 
has requested the services of other functions. Abstract data types allow the actual physical 
representation of the data to be removed as a user concern and enhance code readability. 
Decomposing the standard library into logical collections of functions make it easier for the 
user to trace the origin of a specific function and to narrow the scope of what must be 
assimilated at one time. Each section of the library is described in general terms below, 


while the individual routines are documented in Appendix B. 


B. LIBRARY NAMING CONVENTIONS 
Because C is a caSe sensitive programming language (1.e., "cAt" is not the same as 


cat’) the following capitalization conventions were adopted: 


¢ Names appearing in ALLCAPS are constants that cannot be changed by the user. 


¢ Names that begin with a capital letter, such as OrbitType, are C typedefs and 
represent the name of an abstract data type. A typedef may or may not be associated 


with an underlying structure that may be hidden from the user's view. 


¢ Names that begin in lower case and end with parentheses are function calls. The 
standard library function names begin with two letters followed by an underscore 
character (e.g., xx_). The two character prefix (gl, tl, cv, kl, and cs) is an abbreviation 


for the name of a sub-library that is part of the standard library. 
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¢ Names that do not match any of the above descriptions ave typically variable names. 


Note that adherence to these naming conventions is strictly limited to code found 
inside of the standard library and is not enforced in user programs, such as the simulation. 
This is because the programming traditions for various operating systems, such as the 


Macintosh's, are subject to their own conventions and are often contradictory! 


C. THE GENERAL LIBRARY 

The library prefix "gl_" is used ‘c “2fine a General Library of common equations that 
describe the size and nature of an orbit. These functions correspond roughly to the 
material found in the first part of Chapter III. This library contains an extensive collection 
of inverse relationships because one value may be required from one of many different 
known parameters for an orbit. Therefore given the proper minimal set of data it is 
possible to obtain all of the information available for a particular orbit. To simplify 
equation solving in introductory orbital mechanics courses it is common for many of the 
orbital values to be specified without the quality of direction. The values represented by 
the General Library have adopted this convention and are specified as scalar rather than 


vector quantities. 


D. THE CONVERSION LIBRARY 

The Conversion Library (cv_) actually contains most of the calling discipline between 
the user's view of the orbital data and the internal format that the standard library uses. 
Since the internal representation is hidden from the user, it 1s important that several 
different methods of supplying and retreiving values be provided. 


The abstract concept of angular measure, time systems, and several distance 
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measurement systems are all supported. For example, the user could express an orbital 
inclination measure in degrees and use the Conversion Library to store this value. Later 
the value could be retreived either in degrees or radians, without the user being aware of 
what format the standard library was using to compute its information. Similar 
conversions are accomplished between sidereal and solar time, metric and canonical 


distances, metric and canonical speeds, and even hours and canonical time units. 


E. THE TIME LIBRARY 

Time is a very important concept when considering the characteristics of a satellite. 
Therefore the functions that manage time values are organized into a seperate library. The 
commonality expressed in other libraries is much greater than what is found in the Time 
Library (tl_). In fact, the Time Library may be regarded as a highly specialized subset of 
routines that could have been located in the Conversion Library. This library provides a 
table lookup routine to convert known Universal and Sideral time values, a method to 
interpolate time values that are not included in the lookup table, a coarse time zone 
calculator, an algorithm for computing the local Sidereal time at an observer's location, 
and a pair Julian Date conversion routines. 

The table lookup routine encorporates a selected value for the time difference between 
Universal and Sidereal time for each of the past 21 years. This value may then be used 
with the interpolation function to obtain an approximate time conversion for anywhere 
within a given year. These functions may be called directly and are also used by the local 
sideral time algorithm to produce its results. 

The time zone calculator is useful when it is necessary to know how many: hours 
different a local time is from Greenwich Mean Time. Successive calls to this routine could 


also be used to determine the number of hours that separate two local time zones. The 
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values returned by this function are only approximate because the actual time zones deviate 
from being truly longitudinal and because of differences in the local government's 
adoption of daylight savings time. The U.S. Uniform Time Act of 1966 established 
standard abbreviations for time zones that encompass U.S. territory [Ref. 9:pp. 256]. 
These abbreviations, as well as Greenwich Mean Time, are available to the user via 
another time zone calculation routine. Values in the internal table managed by this function 
may easily be modified to include other localized abbreviations. 

A very important primitive routine for managing access to dates is the calculation of 
the number of days between dates or determining a date that is a given number of days 
away from an initial date. Although these routines could be coded directly in a "brute 
force" manner, the Time Library takes a different approach. By being able to convert 
Julian dates to and from the conventional month, day, and year values, these routines can 
satisfy the date calculation requirement and provide the additional service of Julian date 
computation. The algorithms used are numerical in approach and compensate easily for 


the leap year case. [Ref. 10:pp. 19-20] 


F,. THE COORDINATE SYSTEM LIBRARY 

The libraries mentioned earlier use abstract data values that, for the most part, 
represent single values. The Coordinate System Library (cs__) makes a departure from this 
approach and instead deals with an aggregate data value, whose definition is still 
abstracted. The reason for this difference is to encourage the use of a predefined data type 
called "OrbitType". The user of this library is probably calculating satellite coordinates 
relative to a similar structure already and can use the predefined type without too much 
additional effort. Another reason to enforce this approach is that the Coordinate System 


Library was designed to support an abstracted notion of a satellite orbit. This principle 
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would have been violated if the user were required to make conversions directly from the 
single internal representation used by the standard library. 
G. THE KEPLER PROBLEM LIBRARY 

This is the smallest library (kl_) and contains all of the code that relates directly to the 
solution of the Kepler Problem outlined in Chapter V of this thesis. The most important 
calculation performed is the Newton-Raphson iteration method of root finding. This 
algorithm is used to determine approximate values for the Eccentric Anomaly from an 


initial Mean Anomaly and a specified time difference. 
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VIM. CONCLUSIONS AND RECOMMENDATIONS 


Perhaps the best measure of the usefulness of computer software is the amount of 
further development it receives. The simulation implements only a large subset of the 
functions provided by the library and thus should not be used as an evaluative measure for 
routines included in the library. The simulation does attempt, however, to illustrate how 
many of the included routines might be used in context and provides a vehicle for guiding 
future library expansion. 

Several areas that the library could benefit from future enhancements are speed 
optimization, better handling of special case orbits, increased versatility of existing 
routines and inclusion of new routines. The library was conceived as a method of 
illustrating various orbital phenomena and speed of execution was secondary to the 
pedagogical value of the library functions. Each routine is implemented in the same 
manner that the material was presented. Thus the reader may more easily follow the logic 
behind each function. 

The library may be used in other programs that require more computational efficiency 
than the current implementation. Certain routines may be identified as less than optimal 
when used with real tme graphics programs, for example. An optimized version, capable 
of providing faster results (perhaps with a loss in accuracy) than its counterpart, can be 
constructed and used instead of the existing function. 

There are some orbits which are not easily calculated with the algorithms used by the 
standard library. Most notable among these is the ordinary geostationary orbit. The 
algorithm presented will not work because several Classical Orbital Elements (namely, 


argument of perigee and longitude of the ascending node) are undefined for this particular 


50 


orbit. Either a new algorithm could be introduced or these orbits could be handled by 
several special case functions. Therefore, these conditions do not represent a severe 
problem, but are easily handled within the framework of the existing library. 

The versatility of the library could be increased in several directions, and this depends 
on the target audience's tastes and requirements. The primary areas of interest are systems 
of units and coordinate systems. For example, there may be a need for English units of 
measurement or a pointing vector from the position of one satellite to another. These 
functions may be constructed by cloning an existing function and encapsulating the user's 
specific requirement in a new set of functions. 

The library is also an attempt at providing a basis for including future concepts 
concerning orbits. There are many topics that fit this category including atmospheric drag 
effects, calculating rendezvous problems, and determining an orbit from launch location 
and initial velocity. The degree of difficulty in implementing these capabilities varies 
widely, but should be rendered easier by the existence of the standards developed by this 
library. 

The reasons to study the motion of satellites around the planet Earth are numerous. 
The mechanisms behind satellite systems, communications capabilities or simple curiosity 
about the way space objects behave are more clearly comprehended if they can be modeled 
with pictures. The standard library is a starting point for answering these questions. By 
using the library, the simulation is capable of demonstrating the basic orbital concepts that 


hopefully, will generate more sophisticated questions. 
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APPENDIX A SYMBOL GLOSSARY 


There are many symbols and abbreviations used throughout this paper to represent 
specific variables, constants or concepts. This glossary is an alphabetical listing of 
terminology by English and Greek alphabets, subscripts and superscripts, and by 
coordinate system abbreviations. Many of the symbols used are considered "standard" 
notation, but occasionally there is a conflict in useage between different authors. Known 
alternative symbols used by some references are provided in square brackets ([]) following 
the symbol used by this thesis. 

Where vector quantities are appropriate the corresponding variable name is 
boldfaced (i.e., the velocity vector v is a vector quantity, while the speed v is a scalar 
value equal to the magnitude of v). Where a symbol is only valid as a vector quantity 
(such as coordinate system abbreviations) the symbol will appear in boldface. In some 
cases symbols may be located under more than one listing, and the proper symbol 


definition is determined from the context in which the symbol is found. 


ENGLISH SYMBOLS 

a, Aearth Semimajor axis of an ellipse or semimajor axis (equatorial radius) of the 
Earth. 

Az azimuth angle measured from north clockwise to an object. 


b semiminor axis of an ellipse. 


€, earth eccentricity of an ellipse or eccentricity of a reference spheroid representing 


the Earth. 
E eccentric anomaly. 
Ei} elevation angle measured from horizon to an object. 
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IJK 
Ji (0) 


Mearth 
M, Mo 


Pi 


PQW 


I, Tq; Tp> 
Tearth 


SEZ 


t, tg 


UT 


Vv, Vesc 


flattening of the Earth. 

foci of an ellipse where one focus (F) 1s occupied by the primary and the 
other (F') is an empty focus. 

universal gravitational constant. 

altitude or distance that an object is above a reference radius (r). 
inclination angle of the orbit plane to the equatorial plane. 
Geocentric Equatorial coordinate system. 

ith zonal harmonic coefficient in the Earth's gravitational potential. 
constant of gravitation for the Earth. 

mass of the Earth. 

variable or constant expression for mean anomaly. 

mean motion of a satellite. 

semiparameter of a conic section (ellipse). 

period of a satellite. 


ith Legendre polynomial used in representing the Earth's gravitational 
potential. 


Perifocal coordinate system. 


general radius of an ellipse, radius at apogee, radius at perigee, or radius 
of the Earth. 


Topocentric coordinate system. 

time variable or arbitrary epoch time. 
time of periapsis passage. 
gravitational potential. [®] 

universal (solar) time. 


velocity or escape velocity of a satellite. 
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GREEK SYMBOLS 


a right ascension angle. 
3) declination angle. 
A small increment, difference. 
E specific energy. 
0, Oo, local sidereal tume, Greenwich sidereal time or Greenwich sidereal 
O00 time at epoch. 
158) local hour angle. 
UL gravitational parameter of a primary (GMeasth). 
V true anomaly. 
Tt pi. 
p range to an object or intermediary angular value. 
oh angular rotation rate of the Earth. [Wearth| 
T canonical (characteristic) unit of time. 
d geodetic latitude. [L] 
dg geocentric latitude. [8, 0’) 

flight path angle. [0] 
0) argument of perigee. 

longitude of the ascending node. 
SUPERSCRIPTS 
a derivative of some variable generally taken with respect to time. 
-] 


inverse of a trigonometric function. 
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SUBSCRIPTS 


apogee _ relating to the apogee position of an orbit. 


earth relating to the Earth. 


esc escape value from gravitational force. 
E east. 

g Greenwich (time) or geodetic (latitude). 
n iterative value. 


perigee relating to the perigee position of an orbit. 
0 epoch or initial value. 


w referring to the orbit plane. 


COORDINATE SYSTEM ABBREVIATIONS 


IJK geocentric equatorial coordinates : x,y,z. 
PQW _perifocal coordinates : Xq,V¥q,Zq. 

SEZ topocentric coordinates : A7,E},p. 

oAh geographic coordinates: ©,A,h. 


R.A.-Decl. 
right ascension declination coordinates: «,6,r. 


aD 


APPENDIX B 
STANDARD LIBRARY SOURCE LISTING 


[RK KKK RK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KK KKK KKK 


FILENAME ; Sta lasek 
DESCRIPTION : header file for Stanrp se 
ENVIRONMENT >: Macintosh SE 1Mb RAM 

Light Speed""6 v2715 
AUTHOR : Captain Kenneth L. BEUTEL USMC 
ADVISORS >: Prof. Dan Davie 


Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS : none 
VERS ION © 029 {3767 3) 
CHANGES : 3/6/88 Formatted for MacWrite conversion 


KKK KKK KKK Keke kkk kkk kkk kk kkk kkk kkk kkk kkk kkk kkk kk kK KKK KKK KK KK KK * / 


/* typedef and structure declarations as) 
typedef double Angle; /* radian angular measure x / 
typedef double Time; /* decimal seconds time of day measure */ 
typedef double Dist /* distance in kilometers a 
typedef double Real; /* numeric format for other non-ints i) 


typedef struct 
{ 
Real date; /* julian day and year a 
Time time; /* time in decimal hours sy) 
} DateTime; 


typedef struct 
{ 


char name (20); /* identity of eEhrsoeo ree ey 
Dist semimajor; 

/* semimajor axis (a) *7 
Real eccentricity; 
Angle Ineclinatron-? 
Angle mean_anom;/* Mean anomaly (M0) a 
Angle aALGuOLUperIges, 
Angle long Of (aseunede, 

/* longitude of ascending node CapOMEGA */ 
Time epoch; /* epoch time (t) wr! 
Real date; /* epoch julian date eo / 


[* xxkxxxk*x*k The following are for internal use by library routines 
kkkxkkkkk Only. The user should access these values viaeiume ame 
kkkkkKkKKK Calls. * / 


56 


Angle eccentric anom; 


meOrbLt Type; 


typedef struct 


{ 
/* Perifocal (PQW) 


Dist ney 

DIst Vi 

Dist Za 
ME QOwWCoord; 


typedef struct 
{ 


/* Geocentric Equatorial 


/* eccentric anomaly at time T x / 
position coordinates a | 
/* positive x points towards perigee x / 

/* pos y in orbit plane 90° ahead of x */ 

/* zis positive normal to orbit z= 0 */ 

(IJK) position coordinates ol | 


Dist Ds /* positive x points to vernal equinox */ 

Dvest es /* positive y 90° R.H of x x / 

Dist Ze /* positive z normal to rotation (north) */ 
fel RCoord; 
typedef struct 

{ 

7/* Topocentric Horizon (SEZ) position coordinates a 
Angle elevation;/* clockwise from -s cd | 
Angle azimuth; /* positive upwards from horizontal al 
Dist range; /* from observer to satellite x/ 

fPeonacoord; 

typedef struct 

{ 

/* Right Ascension-Declination (R.A.-D.) position coordinates : x / 
Dist ie; /* distance from primary's center x / 
Angle tay /* rt. ascension angle from ver equinox */ 
Angle decl; /* declination from celestial equator */ 


feRADCoord; 


typedef struct 
{ 


/* Geographic (GEO) position coordinates x / 
Dist altitude; /* distance above reference ellipsoid */ 
Angle latitude; /* angle above or below the equator x / 
Angle longitude;/* angle east of Greenwich meridian x / 

meoeOCoord; 

typedef struct 

{ 
char name[{20]; /* identity of primary (normally earth) */ 
Real curr time;/* time in decimal days since ephemeris */ 
Real grav_ param; 

/* gravitational parameter (GM) x / 


Se 


Dist radius; /* mean equatorial radius of primary x / 


Time herg; /* base time unit * / 
Real speed; /* base time rate of change dist xf 
Real ang_rot; /* ang rotation rate oreedrem */ 
Real eccentricity; 

/* oblateness of reference spheroid oh 
Real IZ: /* 2nd zonal hgarmonic a 
Real J4; /* 4th zonal harmonic x / 


} PrimaryType; 


[xk kkk KKkKKKKKKKKEK Eextern variables found in stdlib.c ****KKKKKKKKKKK &/ 
extern PrimaryType gl primary; 


{*® gl ***xxxKKKKKKEKKX DHrototypes Lor LuUncCtE tons —im deme ea eememenens x / 
void gira takes /* init default values for primary x / 
char aie BEER) 0) ot-be8@ Br /* get primary's name * / 
void gi ierbt ()-; /* set initial values for eros xy 
Dist gl_gorba(); /* get orbital semimajor axis = 
char AGL gorbnit) /* get orbital name * / 
Real gl_gorbe(); /* get orbital eccentricity x / 
Angle gl I gerei():, /* get orbital inclination x / 
Angle gl_gorbm(); /* get orbital mean anomaly x / 
Angle Giger od), /* get orbital arg of perigee by | 
Angle glugorb 1 /* get orbital longvoteasn node oy) 
Time gl gorbt (); /* get orbital epoch ey, 

Dist giigrads ()> /* get radius of perigee a) 
Dist gl _grada(); /* get radius of apogee x / 
Dist gl gradi (); /* get radius at true anomaly angle a) 
Dist gl_grade(); /* get radius at Eccen Anom angle x / 
Angle Gigezue()- /* get true anomaly at radius x/ 
Dust Gi gxpos.(); /* get x pos in PQW coords at true anom */ 
Dist gl_gypos(); /* get y pos in PQW coords at true anom */ 
Dist gl_gsemi(); /* get semi parameter of a conic x / 
Real gl_gmean(); /* get mean motion constant x/ 
Time gl_gperd(); /*-get period x / 
Real gli gvelo()- /* get velocity at radius r x / 
Real gl_gvesc(); /* get escape velocity at radius r */ 
Angle Gisgelepion: /* get flight path angle (0 to pi/2) * / 
Dist gig tosdt): /* get line of sight dist to horizon <a 
Dist gl_ggswi(); /* get geometric swath width */ 
Real gl_gangm(); /* get angular momentum xy) 
Real gl_gspen(); /* get specific energy 7 
/* tl **xkkkkkkkKKEKk Drototypes £Or  fUuNcE tonsa me ice eee x / 
Real tl_gzone(); /* get time zone number past GMT es// 
char ce og znam /* get time zone name from time zone no */ 
Time tl gknow(); /* table lookup known Greenwich time x / 
Angle tl ggren()i; /* get Greenwich sidereal time (approx) */ 
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Angle eg LStmi(); /* get local sidereal time at longitude */ 
Real Peleg sata); /* get julian date (in whole days) x / 
void Eeeomely 2 ()\ 7 /* get month,day and year from jul date */ 


Pi esos <7 Ax AAA* OVrotapypesecOrerunct tons in conversion library */ 


Angle cv_sangd(); /* set angle in degrees xf 
Angle cv_sangr(); /* set angle in radians ah 
Real cv_gangd(); /* get angle in degrees x 
Real ey gangr()i; /* get angle in radians oy 
Time Sw giS oli) 7 /* get solar time from sidereal time x / 
Time ey Gszatr().; /* get sidereal time from solar time aa 
Bast Svea rsk () ; /* convert canonical distance to km oy) 
Bist eve ckdis (); /* ,eonvert km to canonical distance ou 
Real eveck=spd(); /* convert Km/sec to canonical Speed A 
Real Sy ecspak(); /* convert canonical Speed to Km/sec a 
Time eueehit im () ; /* Convert secs to canonical TIMe =) 
Time ey CcEimh(); /* Convert canonical TIMe to secs a 


een mn AX MAX AAX Orototypes for functions in Coord Sys Trans 1ib*/ 


void cs_gpqwc(); /* get PQW coordinates (trans #1) */ 
void esegijgke ()? /* get IJK coordinates (trans #2) */ 
void cs_gpqwk(); /* get PQW from Keplerian (trans #3) */ 
void es Gijks (); /* get IJK from SEZ (trans #4) */ 
void Somat ice () ; /* get IJK from RA~Decl (trans #5) */ 
void Gsigrade(); /* get RA-Decl coordinates (trans #6) */ 
void eCsuggesc (); /* get GEO coordinates (trans #7) */ 
void Ss Giiakgi() ; /* get IJK from GEO (trans #8) */ 
ee RA AA AXKKAKA Hrototypes for functions in Kepler Library x / 
Angle k1l_gecca(); /* get eccentric anomaly at time t 2 y/ 
Angle kl _geccp(); /* perturbed eccentric anom at time t * / 


[& KkKKKKKKKKKKKKKKK*KK macros expand calls to variables that are located 
in the general library using shorthand that is commonly found 


in orbit equations. x] 
#ifndef PI 
#define PI Bebo 9265559 
#endif 


#ifndef MU 


#define MU giaprimanry daav oaram 
#endif 
/* numerical convergence value cali 
#ifndef GL EPSILON 
#define | GL EPSILON 0.000001 
#endif 


Se) 


[RK KK KK KKK KK KK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKKKK KKK KKK KKK KKK KK KKK KKK 


FILENAME 
DESCRIPTION : 
ENVIRONMENT : 


AUTHOR 
ADVISORS 
REMARKS 


VERS ION 


CHANGES 


genLib.c 

General Purpose StdLib source £ilewiGia 
Macintosh SE 1Mb RAM 

Light Speed e327 

Captain Kenneth L. BEUTEL USMC 

Prot .@ban Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
none 


Oro ey O70 


3/6/88 Formatted for MacWrite conversion 


KEKE KKK KKK KK KKK KEK KKK KKK KKK KKK KKK KEK KKK KKK KKK K KKK KEKE KKK KKK KKKKKEKKKEKKKKK x / 


<stdio.h> 
<storage.h> 
<math.h> 
<strings.h> 


#include 
#include 
#include 
#include 


/* include the StdLib header file's typedefs and global variables BH) 


#include "StdLib.h" 


[* kkkkkkkKkKKkKkKK*X global variables that must be initialized for genlib */ 


PrimaryType gl primary, 


/* declaration of internal primary name */ 


/* Because this is a library no main procedure is allowed or required. 
all function names follow the standard convention 


gl_adddd - where gl 


is the library name 


(General Library) 


a is the action that the function performs (such as 
initialize, get, set, and query) 
dddd is the function's descriptive name a) 


/* KEKE KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKE KKK KKK KKKEKKKKKKK 


eo EE kee tke 


initialize default values 


(Bate et.al.) for earth as a 


primary in metricemmmrps 
KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KKK KKK KKK KEKE KEK KKK KEKE KKK KKK KEKKKKKKKKKKK x / 


void 
Gel rete tes) 
{ /* Note that values for primary must be specified in metric units */ 
Strepy(gl primary.name, “Harem: 
gl primary.grav_ param = 3.986012e5; 
/* in kg nef 
gl _primary.radius = 629 co 4>, 
/* in km er 
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qemerimary herg — 606.0118744; 


/* in sec Be 
Weporimary.speed = 7.90536828; 

/*x in km/sec i 
pppritiacy.ang rot = 7-Z29Z11586e-5 * 3600.0; 

/ ae alee asta Weng x / 
gl primary.eccentricity = 0.08182; 
Sumoramary.J2 = 1082.64e-6; 
gl_primary.J4 = -2.5e-6; 


/* KaAKKKK KK KEK fUACE TON Tiadewa ales & defaults RAKKKRRKKKKEKRE ARK KRKKKEKKX * / 


jes KKK KKK KKK KKK KEK KK KKK KKK KEKE KKK KK KEK KK KKK KEK KKK KKK KKK KKK KKK KEKE KK KK KEK KKK KK EK 


gl gpnam : gets the name of the primary 
KKK KKK KKK KKK KKK KKK KEK KKK KEK KKK KKK KEK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKKKKK * / 


char * 


gl_gpnam() 


{ 


return(gl_ primary.name) ; 
/* KKEKKKKKEKKK FUNCE 10Nn get primary name KKK KKK KKK KKK KKK KEKE KKK KKK KK * 


foe ~*~ *** functions that work with the Orbit Typedef records ******* */ 


/* KKK KEK KEK KKK KKK KKK KEK KKK KK KEK KEK KKK KKK KKK KKK KEKE KKK KEK KEK KKK KKK KEK KK KKK KKK KEK 


gl sorbt : set values for new orbit record 
KKK KKK KKK KKK KKK KEK KKK KEKE KKK KEK KEK KKK KKK KR KEK KEK KKK KEKE KK KKK KKK KKK K KKK KK * 


void 
gl_sorbt(name, a, e, i, mean_anom, peri, asn, epoch, date, orbrec) 
char *name; 
Real a, e@; 
Angle i, mean_anom, peri, asn; 
Time epoch; 
Real date; 
OrbitType *orbrec; 


strepy (Orbrec->name, name); 
orbrec->semimajor = a; 
orbrec->eccentricity = e; 
orbrec->inclination = i; 
aeorec—>-mean anom = mean _anom; 
orbrec->arg_ of perigee = peri; 
Beorec—>long of asc_node = asn; 
orbrec->epoch = epoch; 
orbrec->date = date; 


orbrec->eccentric_anom = 0.0; 
kl _gecca(&*orbrec, epoch); /* initial calc of ecc anomaly na 


el 


/* KKK KKK KKK KKK KK fiunct1on set Grol KKK KKK KKK KKK KKK KKK KK KKK x / 


/* KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKKK 


gl_gorbn : get orbit name from orbit record 
KK KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKEKK x / 


char * 


gl igorbn torp2t) 


OrbitType OEba te; 


return (orbit .name) ; 
/* KKKKKKKKKK flinction get orbit name KKK KKK KKK KKK KKH HK KKK HK KKKKHK x / 


Vos KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKK 


gl_gorba : get orbit semimajor axis from orbit record 
KKK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KK x / 


Dist 


girgoebatorbre) 


OrbitType SrbiE; 


return( orbit.semimajor ); 
/* KKKKKKKKKK function get Oro semimajor axis KKK KKK KKK KK KKK x / 


/* KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KK 


gl_gorbe : get orbit eccentricity from orbit record 
KKK KKK KKK KKK KKK IKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK K KKK KKK * / 


Real 


gl_gorbe (orbit) 


OrbitType OrDise; 


return ( Orbit .eccentricrcey a). 
/* KKK KKKK KKK function get OLErDbiLt eccentricity KKK HK KKK KK KKK KKK x / 


/* KKK KKK KK KK KKK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKKKK KKK 


glgorbi : get orbit inclination from orbit seeanua 
KKK KKK KK KK IK KK IK IK KKK KKK KK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKKK x / 


Angle 


eG Kefepalenin eve eos) 


} 


OrbitType Oroits 


return ( Orbit ,anchineaeron.): 
/* KHKKKKKKKK function get orbit inclinat won KKK KKK KK KKK KKK KK KKK K x / 


/* KK KKK KKK KKK KKK KK KK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKK 


gl_gorbp : get orbit argument of perigee from orbit record 
KOK KKK KK IKK KK IK KKK KKK KK KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKKK EK * / 
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Angle 
ei gorbp (orbit) 
OrbitType eVelentie 


return( orbit.arg of perigee ); 
} [x KkxkkKxkkxk*k function get argument of perigee ***xKKKKKKKKKKKKKKK x / 


/* KKK KKK KEK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK 


gl_gorbm : get orbit mean anomaly from orbit record 
KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK x / 


Angle 
gl_gorbm(orbit) 
OrbitType Oro t ; 


return( orbit.mean_anom ); 
} [/* xxxkkxkxkk*** Function get orbit mean anomaly ****KKKKK KKK KKK KKK & / 


/* KEK K KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KEK KK KKK KKK KKK KKK KKK KKKKKKKKKK 


gl_gorbl : get orbit longitude of ascending node from orbit record 
RAK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KK KK KKK KKK K x / 
Angle 

geeecorbl (orbit) 
OrbitType Gra tS 


meeurn{ Orbit.long_of asc_node ); 
} 1s KKKKKKKKKK function get long o£ asc node KKK KK KKK KKK KK KKH x / 


/* Kem KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 


gl gorbt : get orbit epoch time from orbit record 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK x 


Time 
gl_gorbt (orbit) 
OrbitType OLrolty 
{ 
return (orbit.epoch) ; 
} /* KKKKKKK KKK funet lon get epoch time KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 


/* KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK 


glgradp : get radius of perigee 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 
Bist 
gl gradp(a,e) 
Real a,e; 


return( a * (1.0 ~ e) ); 
} /* KKKKK KK KKK function get radius Or perigee KKK KK KKK KKK KK KEKE xf 
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/* KKK KKK KKK KKK KKK KEK KKK KKK KEKE KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKKK 


gl gorba : get radius of apogee 
KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KKK KEKK * / 


Dist 


gl_grada(a,e) 


Real a,e@; 


return(a * (1.0 + e)); 
/* KEKKKKKKKK funet on get racic Of apogee KKK K KKK KKK KK KKK KKK x / 


/* KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKKK 


gl gradi : get radius at true anomaly angle nu 
KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KEK KK KKK KKK KEKE * / 


= 3 t 
we 


gl_gradi(p,e,nu) 


} 


Real p,e; 
Angle nu; 
/* p =a (l-e*e) semiparameter x / 
return ( p / (1.0 + e * cos( cv gangre (uo 
/* *x*x*x* function get radius at true anomaly angle ******xkkxkxkK &/ 


/* KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KEKE KKKKKEKKKK 


gl_grade : get radius at Eccentric anomaly angle E 
KKK K KKK KKK KKK KEKE KKK KK KKK KK KKK KKK KEK KKK KKK KKK KKK KK KKK KKK KKK KEKE KEKE KKKKK x 


Dast 


gl_grade(a,e,eccen_anom) 


Dist aly 
Real e; 
Angle eccen anom; 
/* Erom SmithePp. oo coy 
return (a * (1.0 - e * cos( Cv_gang: (eccenmanenmim Er 


/x #*k** function get radius at Eccentric anomaly angle *****xx%*x x/ 


/* KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KK KEKE KKEKEKEKEKKEK 


gl_gtrue : get true anomaly angle nu at radius r 
KEKE KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKKEKEKKKEK x / 


Angle 


gl_gtrue(x,y,p,e) 


Dist Kress. 

Real e; 
{ /* p =a (l-e*e) semiparameter * / 
Dist ay: 
Angle ONE Ls 
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/* 


if (e == 0.0) /* divide by zero error check a / 
ieee (0-0); 


meee sort ( x*x + y*y); 
me acos( ((p/r) - 1.0) / e ); 
Me ((x>0) && (y>0)) 

5 /* nu 
else if ((x<0) && (y>0)) 

g /* nu 
else if ((x<0) && (y<0)) 

mu = (2.0*PI) - nu; 
else if ((x>0) && (y<0)) 

nu = (2.0*PI) - nu; 


nu x / 


(Eee 2.0) nu 7 


meturn ( nu ); 
/* kKkekkx function get true anomaly angle KKK KKK KKK KKK KKKKKKKKK x / 


KImK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKKKKKKEKEE 


Gaecgexpos : get x position in PQW coords at true anom 
kkk KKK KK KK KKK KKK KKK KKK KE KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKAKKEKKKEKK x / 


Dist 


gl _gxpos(p,e,nu) 


/* 


Dist oy 
Real e; 
Angle nu; 


/* p =a (l-e*e) semiparameter x / 
mommeem( (p> ~ cos{ cv gangri(nu) )) / (1.0 + e * cos( cv_gangr(nu) )) ); 
J/* xxxx function get x position in PQW coords at true anom ****x** */ 


KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKKKKKKK 


glgypos : get y position in PQW coords at true anom 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KKK KKK KK KK KKK KKK KKKKKK x / 


Dist 


gl gypos(p,e,nu) 


/* 


Dist Pp; 
Real e; 
Angle nu; 


/* p =a (l-e*e) semiparameter x / 
momrnt (Dp * Sin({ cv gangr(nu) )) / (1.0 + e * cos( cv_gangr(nu) )) }); 
yx *x*x function get y position in PQW coords at true anom ***x*x** */ 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KK KKK KE KKKKKKKKKKKKK 


gl gvelo : get velocity at radius r 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKEK x / 


Real 


gl _gvelo(r,a) 


Dist r,a; 
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} 


/* 


/* note MU = 1.0 for canon eames x / 


return( sqrt (MU * ((2.072), —~=(07 a) eee 
/* KKK* flnet Lon get VelOCciey at r KKK KKK KKK KE KKK KKK KKK KKK KKK KEK KKK x / 


KKK KKK KK KK KKK KKK KKK KK KK IK KKK KKK KKK KK KK KKK KKK IKKE KKK KK KEK KKK KKK KK KK KKEKKK 


gl_gvesc : get escape velocity at radius r 
KEK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 


Real 


gl _gvesc(r) 


/* 


Real re 
/* note MU = 1.0 for canonical units x / 


return ( sqrit(MU * (223072))) 9). 
/* KkeK* function get escape velocity KKK KKK KKK KKK KKK KKK KKK KKK KKK K xf 


KKK KKK KKK KKK KKK KEKE KKK HI EK KEK KKK KEKE KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KK KKEKEKKEKK 


glogfltp : get flight path angle at radius Ee, msinger. 


KEK KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KEK KK xf 


Angle 


G@lgfitto(h, fy o) 


/* 


Real ales 
Dist balk 
Real V; 


return ( (Angle) acos(h (rr *47 vm); 
/* KKK function get Elvont path angle at Yr KKK KKK KKK KKK KKK KKK KK x / 


RR KKK KKK KEKE KEKE KKK KEK KE KKK KKK KEK KEK KKK KEK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKKKEKKKKKK 


gl glosd : get line of sight dist to horizon ae cadence 


using gamma (angle above horizon) 
KKK KKK KKK KEK KK KKK KKK KKK KKK KKK KKK KARE KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKK x / 


Dist 


gl_glosd(r, gamma) 


Dist Le 
Angle gamma ; 
{ 
Real temp; 


/* 


temp = gl primary.radius * cos( cv_gangr(gamma) ) / r; 
return( r * cos(cv_gangr(gamma) + asin(temp))/cos(cv_gangr(gamma)) ); 
/* ***x* function get line of sight dist to Horizon **~**%7 33 


KEK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKK KKK KK KK KKK KKK KKK KKK KK KK KKKEKKEKKEKEKK 


gl ggswi : get geometric swath width 
KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KE KKK KKK KKK KKK KKK KE KKK KEK KKK KKK KKK KKEKKEKK xf 


Dist 


gl_ggswi(r) 
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past ge 


Eoruen( 2-0 * gl primary.radius * acos (gl_primary.radius / r) ); 
} fae © ~ecimee on get geometric Swath width ****t4 xx xx ex AAR KEX & / 
/* kKakKKKKKKKKKKKKKK QO RBYXITA YL Ceo Nes LT AN T S KHEKKKKKEKKEKEKEKEKKKEK KEK 


Constants need only be evaluated once per orbit 
KEK KKKKKEKEHKKKKKKKKAKKKKK ORBITAL CONSTANTS KKEKKKKKKKKKKKKKKKEKEKKEKEKEK af 


/* KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KEKE KKK KEK KKK KKK KKKKK KKK 


glgsemi : get semi parameter 
KKK KKH KKK KKK KKK KEK KEKE KKK KKK KKK KK KKK KEKE KKK KKK KKK KKK KEKE KEKE KKK x / 


Bist 

gl_gsemi (a, e) 
Bast a; 
Real 5 


return( a *(1.0 - e*e) ); 
} /* KKK KKKK PumMet Lon get semiparameter OL conic 5 ay, dy a, a. a a i, ww we x / 


Hes KKEKKKKKKKE KKK KKK KKK KK KKK KKK KEK KK KEK KKK KKK KKK KK KKK KKK KKK KKEKKEKKKKKEKKKKKEKKEK 


gl_gangm : get angular momentum 
KKEKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKKEKK x / 


Real 
gl_gangm(a, e) 

Dist a; 

Real e; 
/* evaluate r x v at perigee x / 
Real EBers, vperi, jaye 


p = gl_gsemi(a, e); 

fmectie— Gl gradi(p, e, 9.0); 

vperi = gl_gvelo(rperi, a); 

Peturn{ rperi * vperi ); /* flt path angle is 90 degrees eH 
} /* KKKK* Funct 1.oOn get angular momentum KHKKKKEKK KEKE KK KEKE KKK KK KKK KKK * / 


/* KKEKKKKKHKK KKK KKK KKK KK KKK KKK KK KKK KEKE KEK KK KKK KK KKK KKK KKK KEKKEKKEKEKKEKKKKKKEKKEK 


gl_gmean : get mean motion constant 
KKEKKKKKKKKEKKE KEKE KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KEK KEKE KKEEKHK * / 


Real 
gl_gmean (a) 
Dist a; 
{ j= MU an “canonical units = 1-20 by defn */ 
return( sqrt (MU) / pow(a,1.5)); 
/* m= ( MU/a*a*a) %*1/2 * / 
} /* KeKKKKKK functison get mean motion constant KEKKKEKKKEKEKEKKKKKE KKK KEK * / 


oi 


/* KEK KE KEKE KK KEK KEK KKK KKK KKK KKK KKK KKK KK KEK KKK KEK KK KKK KKK KEK KKK KKK KKK KKK KKKKK 


gl_gperd : get period 


RR KKK KKK KKK KKK KKK KKK KKK KKK KEK KEKE KKK KEK KEKE KKK KKK KKK KK KKK KKK KKK KKKEKKK * f 


Time 


eg igpe ran) 


Real ne 


return( 2 * PL /ene)- 
/* KKKKKKK FUNneceE1oONn get period KKK KK KKK KKK KKK KI KKK KKK KKK KEK KK KKK KK x / 


/* ee ee ee cee ee ee ee ee ee ee ee ee ee ee rr ee a ee ee ee 


glgspen : get specific energy 
KEK KEKE KR KEKE KKK KEKE KKK KEKE KEK KKK KEKE KKK KR KKK KK KKK KR KKK KKK KKK KKK KKK KEK KKK KKK KKK xf 


Real 


gl_gspen (v,r) 


} 


Real Ve 
Dist ey 


eeturn( (v * v 7 220) 8 te (MU eee 
/* KKKKKK function get specific energy KKK KEK KKK KKK KKK KKK KKK KKK KEK x / 
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[RK KKK KK KKK KK KKK KKK KKK KKK KKK KK KK KK KKK KKK KKK KKK KKK KR KKK KK KKK KK KKK KKK KK KK 


F ITLENAME > convert.c (cv_) 
DESCRIPTION >: Conversion formula StdLib source file 
ENVIRONMENT : Macintosh SE 1Mb 

bightSpeed’™ CC v2.15 
AUTHOR : Captain Kenneth L. BEUTEL USMC 
ADVISORS : Prof. Dan Davis 


Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS : none 
VERSION Om il 3) 6)/c.a} 
CHANGES * 3/6/88 Formatted for MacWrite conversion 


KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK x / 


#include <stdio.h> 
#include <storage.h> 
#include <math.h> 
#include <strings.h> 


/* 


include the StdLib header file's typedefs and global variables 2 


finclude "StdLib.h" 


/* 


/* 


Because this is a library no main procedure is allowed or required. 
all function names follow the standard convention 
e€v_adddd - where 
cv is the library name, (cONVERSION LIBRARY) 
a is the action that the function performs (such as 
(i)initialize, (g)get, (s)set, and (c)convert) 
dddd is the function's descriptive name ay) 
KKK KKK KKK KKK KEK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKKKK KKK K 
SPECIAL NOTE : all angular measures are stored internally in radians 
all distance quantities are stored in kilometers 
all time and mass quantities are stored in the initial 


t é ‘ 
units specified 
KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 


KKEKKKKKKKKKKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK kK Kk KKK Kk Kk Kk Kk KKK KKK KK 


cv_sangd : set angle measure in degrees 
kaka KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK Kk kk kkk kok kok kkk kok kok ok kkk kok kk kkk kkk of 


Angle 


cv_sSangd (degrees) 


Real degrees; 
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/* 


return( 0.0174532925199 * degrees ); 
Hes KKK KKK KKK KKK KKK func: 16m set angle (degrees) KKK KK KKK KKK KA KKK x 


KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKKKKKKKK 


cv_sangr : set angle measure in radians 
KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKKKK KKK K x 


Angle 


cv_sangr (radians) 


Real radians; 


return( radians ); 
/* KKK KKK KK KKK KKK function set angle (radians) KKK KKK KKK KKK KKK KK x / 


/* KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKK 


cv_gangd : get angle measure in degrees 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK x / 


Real 


cv_gangd (value) 


Angle value; 


return ( 57.295//795131 = value. 
[R KRRERKKKKKKKKKKEK Function set angle (degrees) ******"~= ~ | 


/* KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKEKKKKKKK 


Cv_gangr : get angle measure in radians 
KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK x f 


Real 


cv_gangr (value) 


} 


Angle value; 


return( (Real) value ); 
/* KKK KKK KKK K KKK KK function set angle (radians) KKK KKK KKK KK KKKKHK x f 


/* KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKKKKKKKKKKKK 


cv_gsolt : get solar time from sidereal time 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKKKKKK x / 


Tame 


Gv GSOLlt (Value) 


Time Valiie > 


return( value * 1.0027379093 ); 
/* = sideral * sol/sid day x / 


ix KKK KKK KKKK KK funce.oOn get solar time KEK KKK KKK KKK KK KK KKKKKK x / 


/* KKK KEK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKKKKKKK KKK 
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CV_ 


7 * 


cv gsidt : get sidereal time from solar time 

Fe K KK KKK KK KKK KKK KKK KKK KKK KKK KEK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKEKKKEEK x / 
Time 

gsidt (value) 

Time value; 


return( value * 0.9972695664 ); 
/* = solar * sid/sol day * / 
/* KKK KKKKEKKE KKK KEK function get solar ime KK KK KK KKK KKK KKK KKK KKK ~/ 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KEE KK KKKKKKEKKKE 


cv ckdis : convert Kilometers to canonical DIStance 
KOK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KEKE KKKKSE * / 


Dist 


cv_ckdis (km_distance) 


Dist kneciseance, 


return( km_distance / gl_primary.radius ); 
fee ee *X Lunction Convert canonical dist from km ********x* */ 


KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KEK KKK KKK KKK KKK KEK KKK KKK KKKKK KK 


Svecaisk :; convert canonical DIStance to Kilometers 
KKK KKK KK KKK KK KKK KK KKK KKK KKK KKK KEK KEKE KKK KK KK KK KEK KEKE KKK KKK KKEKKKKKKKEKEKK * / 


Dist 


ev_cdisk(canon_distance) 


/* 


Dist canon_distance; 


meewrn{ canon distance * gl _primary.radius ); 
pee te *XRKKKXX Function convert km from canonical dist *****xxkkxx x / 


KREEKKKKKKKKKEKKEKKKKKK KKK KK KKK KKK KEKE KKK KEK KKKK KK KK KKK K KE KKK KKK KEK KKKKEKEKEKKK 


cv_ckspd : Convert Km/sec to canonical Speed (magnitude of velocity) 
KEKE KKKKKKKKEKE KKK KKK KK KKK KEK KEKKKEKKKKEKEKKEKE KKK KEKE KKK KKK KKK KKK KKK KKK KKK * / 


Real 


Cv_ckspd (km_sec) 


/* 


Real km_ sec; 


return( km_sec / gl_primary.speed ); 
eee ~~ ~~~* function get canonical speed from km/sec *******xxK */ 


KEKKKKKKEKEKKK KK KKKKK KEKE KK KKK KKKKK KKK KEK KKK KKK KEKE KKK KKKKKEKKKKKEKKKEKKKKEKEKEKSEK 


cv_cspdk : Convert canonical Speed (magnitude of velocity) to KM/sec 
KEKE K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KEK KK KKK KK KEKE x / 


Real 


cv_cspdk (canon_ speed) 


Real canon_speed; 


Hol 


return( canon speed * gl primary.speed ); 
[x KkkKKKKKKKKKK Function get km from canonical dist *******~<= 


KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK 


cv_chtim : Convert seconds to canonical TIMe 
KKK KKH HK HHH HHH KKH KKH HK KK HK HHH HK KKK HK KKK IKK KKK KKK KKK KKK KKK KK KK KKK x / 


Time 


cv_chtim(sec time) 


/* 


Time sec time; 


return( sec _ time / gl_primary.herg ); 
/* xkkkxxkxxxkk*x function Convert secs to canonical Time ***3 


KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KI KK KKK KKK HE KE KKK KKK KKK KKKKKK KKK 


cv ctimh : Convert canonical Tite te sceends 
KK KK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKK x / 


Time 


ev_ctimh (canon_time) 


Time canon time; 


return( canon time * sgl) poimacy neorge: 
[* kxkxkxkxkxkkkx* function Convert canonical Time to seconds ~*= uuu 
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MnRSBt Ese etea es eea ania a 2 ek RK RK eA OE AK KEK KKERAKEKAKKKAKKKKKKKRKKKKKKK 


F TLENAME wee eordayS.c¢ (CS 7) 
DESCRIPTION : Coordinate Transformations source file 
ENVIRONMENT : Macintosh SE 1Mb RAM 

LightSpeed™ C v2.15 
AUTHOR >: Captain Kenneth L. BEUTEL USMC 
ADVISORS : Prof. Dan Davis 


Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS : none 
VERSION Ur oe / 0/33) 
CHANGES : 3/6/88 Formatted for MacWrite conversion 


KK KK HK IK IK KK IKK IK KKK KK KK KKK KK KK IKK IK IKK IKK KKK KKK KKK KKK KKK KKK KKKKKKKK x / 


#include <stdio.h> 
#include <storage.h> 
#include <math.h> 
#include <strings.h> 


/* include the StdLib header file's typedefs and global variables yf 
genetude "StdLib.h” 


/* Because this is a library no main procedure is allowed or required. 
all function names follow the standard convention 
cs_adddd - where 
ct is the library name (Coordinate Transformation) 


a is the action that the function performs (such as 
(i)initialize, (g)get, (s)set, and (c) convert) 
dddd is the function's descriptive name a. 


jx KKK KI KK IKI KK KK IK IKK KKK KKK KKK KK IK KKK IKK KKK KKK KKK KKK KER KKK KKK KK KK KKK KKK 


CS _gpqwc : get PQW coordinates from OrbitRec (transformation #1) 
KKK KKK KKK KK KI KK IK KK KK KIKI KK IKK KK KKK KK KK KKK KKK KK HK KKK KKK KKK KK KKKKKKK x / 


void 
CS_gpqwe(theorbit, pqw_pos) 
OrbitType ENeorbie; 
PQWCoord *pqw_pos; 
{ 
pqw_pos->x = theorbit.semimajor * 
{ cos (theorbit.eccentric_anom) - theorbit.eccentricity ); 
Paw pos->y = theorbit.semimajor * sin(theorbit.eccentric anom) * 
Stree etnNeorbat eccentricity * theorbit.eccentricity ) >; 
Pew pos->z = 0.0;/* by definition a 
} [*® & kk kk kK KKKKK Function get POW Coords ** KKK KK KKK KK Ok / 
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/* KKK KK KKK KKK KEK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK 


cs gijke : get IJK coordinates from OrbitRec (transtormarou, s 
KKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK x / 


void 
GS gijkc(theorbit, Pikes) 
OrbitType theocbis,; 
TJKCeo rd xi jk Pose 
{ 
PQWCoord pqw; /* need to get paqw first x / 
Real cos p, Sin_p, COS a, Sin d, GOS) co lamee 


/* 


/* storage to save transcendental calcs */ 


cS gpqwe(theorbit, &pqw); 
COS Pp = Cos (EhGorb1e drgnor ipeErgeca yy 


SiN Pp = sin (ENeGOrbi esd rope rere rrgc or 
COS _a = cos (theorbic. tong 16 vascmneda 
Sin_a = sin(theorbit.long_ of _asc_ node); 
COS 1 = GOS (ENGOrb1 Eine la roei en), 
Sin i = Sin (theorbic. imelindetom)., 
1jk_pos->x = pqw.x * ( (coS_p*cos a) = (SinJp“sin da cece 
+ pqw.y * ( (=Sin _p*cos_a) = (COS p* Simi“ Cosm mem 
ijk pos->y = pqu.x * ( (coS p*Sin_ a) + (Sin p“Cos 4 eso mame 


+ pqw.y * ( (-sSin_p*sin a) + (cos p*coslacocmayme Er 


Ljk pos=>z = pqw.x * (sine pactmecs) 
+ pQW.y ~ {1¢oshp sine ; 
/* KKK KK KKK KKK KK KKK KK function get Luk Coords KKK KKK KKK KKK KKK KKK x / 


KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK 


cS_gpqwk : get PQW coordinates from IJK Coords and Keplerian angies 
KKK KKK KKK KKK KKK KKK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KK KK x / 


void 
CsS_gpqwk(theorbit, ijk pos, pqw pos) 
OrbitType EheCoubleE, 
IJKCoord Lake POs; 
PQWCoord *pqw pos; 
{ 
Real cos p, Sin Pp, COS da, SiN@aaeesm es dae 


/* storage to save transcendental cales */ 


cos_p = cos(theorbit.arg of perigee); 


Sin p = Sin{theoOrb1b arguOtepe cca. 
cos_a = cos(theorbit.long of asc_ node); 
Sin a = Sin(theorbit: long of ascumedayr 
CoS 1 = CoS (CNheerbit  inciinartcws, 
Sin i = sin(theorbit ineciinavrons 
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peyepos--x = ijk pos.x * ( (cos_p*cos aj"'= (oie. S Lima *COS™) -) 
Plo sr a MemlCGs pe Sin a) to tsin, D*ecos a*cos 1) ) 
Tce pos 2a { SiMe p*sin 1 ); 
me os— vem elie DOs. x ~—( sin p*cos™a) - (cos _p*sin_a*cos_i) } 
(occ (—SitmeOo*samecd) + (COS p*cos a*cos_i) } 
Tem Os.2 ~ ("Cesmp= sin 2); 
BanM POS->zZ = ijk _pos.x * ( sin_a*sin_i ) 
Dose) ( COS) a*Sin ame) 
tei jke poses ~ ( eosmam)e, 
/* z should equal zero for paqw Coords ways 
} /* KKK K KKK KKK KKK funce on get POW from Kepler/IJK kkk kkk KKK KKK KKK * / 


/* KKK KIRK KK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KERN A KK KKK KKK KKK KKKK 


@5,91)ks 


void 


get IJK coordinates from SEZ Coords 


KKK KKKK KKK KKK KK KKK KKK KKK KKK KR KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK * / 


6s gijks(theorbit, sez pos, latitude, longitude, ijk_pos) 
OrbitType 


SEZCoord 
Angle 
Angle 
iaexCoord 
{ 
DateTime 
Real 


Real 

Real 

Angle 
Soo bl = 
sin El = 
SoseAZ = 
sin_Az = 
mos = — 


rhoE 
rhozZ 


datetime 
datetime 


Gos | 
sin ( 
cos ( 
Sia « 


theorbit; 

Sez pos; 

latitude; /* latitude of the observer 
longitude;/* longitude of the observer 
2 Kepos, 


datetime; /* date time of the observation 
Cosme, sineel, ees Az, sin Az; 

/* storage to save transcendental calcs 
Sesmbal,, Stimbat, Cos Lon, sin Lon; 

/* storage to save transcendental calcs 
BOS, EHOm,. cnoZ; 

/* range expressed in SEZ coordinates 
aS te /* local sideral time 


Cv_gangr(sez_pos.elevation) ); 
cv_gangr (sez _pos.elevation) ); 
Ccv_gangr(sez_pos.azimuth)); 
Svegengeisee POS waaimuti)p) 


Secmoos range cos Bl = cos Az; 
SGZzeeOse range ~ cos El * sin Az; 
Sezupos+ range ~ sin 21; 


.date 
veome 


theorbit.date; 
theorbit.epoch; 


ist = tl_glstm(longitude, datetime) ; 


Ties. 


Bf. 
aT 


a | 


<7 


ay 
a) 


cos Lat = cos( cv_gangd(latitude)); 


sin_Lat = sin( cv_gangd(latitude) ); 
cos lon = cos( cv gangdiisa.a: 
sin_Lon = sin( cv_gangd(lst)); 
ijk pos->x = rhoS)* “(sin Laeuwees Wem) 
+ Chon (os Enema @ ml) 
+ rhoZg * (Cos lat *cesmman 
Ljk pos->y = 5heS * (sinebaessameom 
+ rhoB * (cos lten) 
+ rhoz * (cos Lat *simmnens 
1jkL pos—-+z SS "ches =e leeseua) 


+ rhoZ * (Simla) ]; 


/* KKK KKK KKK KK KKK function get IJK from SEZ FOI OK tk tok eh kk / 


/* RRR KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KEK KKK KKK KKK KEKE KK KKK KKK KKK KKK KKKE KKK 


cs gijkr : get IJK coordinates from Right Ascension-Declination Coords 
KEK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK K KK KK x / 


void 

¢s_gijkr(theorbit, tad pos, taikepes? 
OrbitType theoreic, 
RADCoord EdAG pea, 
LIKCeord <iykepes, 


ijk _pos->x = rad _pos.r * cos(rad pos.deel) *“cos(rad pesmaa 


ijKapes=-¥ rad pos.r * cos(rad_pos.decl) *“SsaiG@ead pec esa 


Ljk_pos=->2 = rad pos-r * Siniradupecsdec an 
/* xkkxkexk function get IJK Coords from Right Asc-Declin ***** =a 


/* KEK KKK KKK KKK KEK KE KKK KKK KKK KKK KEK KK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKK 


cs_gradc : get right ascension declination coordinates from IJK 
KEK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 


void 

es grade (théeorbit, 13k pes, sadupec, 
OrbitType theorbit; 
IJKCoord 1jk pea, 
RADCoord *~rag apes, 

{ 

Angle temp decl; 


rad. pos—> 2 sqrt (ijk_pos.x*ijk pos.x + ijK poscy~ 1 ijepoae, 
+ ijk pos.z*ijkipesaas 


atand (ijk pos -y, 921] 1pes os 


tad pos ta 
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temp _decl = atan2(ijk_pos.z, 


Saemiimeeae< tyke pos.x + 23K pos.y*ljk pos.y)); 


mam (compecdec! > Pi/2.0) && (temp decl <= PI)) 
temomcdec seri = temp deci; 


Peso tre (tempedecl > PI) && (temp deci <= IV5*PI)) 


temp decl = PI - temp_decl; 
else if (temp_decl > 1.5*PTI) 
BonmpEadccim= temo decl — 2.0*Pi; 


Bad pos--decil = temp _decl; 


/* KRKEKKKKKKKK KKK KKK Funct Lon get RightAsc-Decl KKK KKK KKK K KKK KKK * / 


/* KKK KKK KEKE KEK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK 


cs_ggeoc : get GEO coordinates from Orbit data 


KKK KKK KK KKK KK KKK KKK KKK KKK KEK KK KKK KKK KKK KEK KKK KKK KEK KEK KKK KKK KKK KKK KK KK x f 


in hours 


/* storage for intermediate values 


void 
cs_ggeoc(theorbit, since_epoch, geo pos) 
OrbitType theorbit; 
Time since epoch; 
/* time past epoch 
GEOCoord *geo_ pos; 
{ 
Real Reeder, yY Careh, Zz earth; 
Real Mie mecOsmeeNO, Sinarno,. ©; 
/* storage to save 
IJKCoord 3k; /* need this value 
DateTime datetime; 


Seegijkc(theorbit, &ijk); 
datetime.date = theorbit.date; 


datetime.time = since epoch; 

rho = tl_ggren(datetime); /* angle the earth 
Ses) 6nOo = cos(rho); 

Sin_rho = sin(rho); 

Meee ijK.x * Cos rho + ijk.y * sin_rho; 


y_earth ieee. a omen tl gk.y * cos rho; 
gmearth = i3jk.2z; 


transcendental calcs 
to begin 


has rotated thru 


@eeecart (x earth*x earth + y earth*y earth + z_earth*z earth); 


geo _pos->latitude = asin(z_earth / r); 
geo pos->longitude atan2(y_earth,x_earth) + 


PL: 


aed 


af 


a 
aa | 


wa 


/* PI/2 is correction to get east long. */ 


geo pos->altitude EGS CL primarysnraGgius; 


/* KEKE KKK KKK KKK KKK KKK function get GEO Coords KEK KKK KEKE KKK KKK KKK nf 
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/* KKK KKK KKK KKK KKK KEK KEKE KKK KEK KK KEK KEK KKK KKK KEK KEKE KK KK KKK KKK KKK KK KEK KKK KKK KKK 


cs gijkg : get IJK coordinates from GEO (geocentric) and Orbit 
KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK x / 


vord 
cs gijkg(theorbit, geo_pos, ijk_pos) 
OrbitType theorbit; 
GEOCoord geo_ pos; 
IJKCoord ba Bey J oh Lote 
{ 
ijk pos->x = (geo pos .altitude + gl primacy eaceue) 


* cos (geo_pos.latitude) * cos(geo_pos.longitude) ; 


ijk_pos->y = (geo pos altitude + gl primaryecaen, 
* cos(geo_pos.latitude) * sin(geo pos.longitude) ; 


ijk_pos->z = (geo_pos.altitude + gl_primary.radius) 
* sin(geo_pos.latitude) ; 
} jf * KEKEKKKKKKKKKKKEKEEK function get IJK £rom GEO wKkk KKK KKK KKK KKK KKK * / 
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ee Re A A KKK RAR KR AKER RK LARA KA RARR EA RK RRR KARR RARER KKK 


FILENAME : kepler.c 
DESCRIPTION : iterative Kepler Problem sol'n file (gl_) 
ENVIRONMENT : Macintosh SE 1Mb RAM 
LightSpeed™ C v2.15 
AUTHOR >: Captain Kenneth L. BEUTEL USMC 
ADVISORS >: Prof. Dan Davis 


Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS ‘ none 
VERSION = “O779Ne(3756788 ) 
CHANGES - 3/6/88 Formatted for MacWrite conversion 


kkk kK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKKK KKK KKK KK * / 


#include <stdio.h> 
#include <storage.h> 
#include <math.h> 
#include <strings.h> 


/* include the StdLib header file's typedefs and global variables “ay 
famelude “StdLib.h” 


/* Because this is a library no main procedure is allowed or required. 
all function names follow the standard convention 
gl_adddd - where 


eill is the library name (General Library) 

a is the action that the function performs (such as 
initialize, get, set, and query) 

dddd is the function's descriptive name =] 


/* KRREKEK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKK KKK KK 


kl _gecca : approximate eccentric anomaly from mean anomaly and time 
KRKREKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KK * / 
Angle 

kl_ gecca(theorbit, from_epoch) 
OrbitType *theorbit; 
Time from_epoch; 


{ 
/* Newton iteration method for solving Kepler's Equation 
En+l = En + (M - Mn) / (dM/dE) 
Solution from "Fundamentals of Astrodynamics" (Pp.220-222) 


by Bate, Mueller and White a 
unt iter; /* number of iterations accompished x / 
Angle en; /* approx eccentric anomaly ay 
Angle mn ; /* approx mean anomaly =) 
Angle ms /* computed (exact) mean anomaly * / 


TS, 


m = theorbit->mean_anom + 
gl_gmean(theorbit->semimajor) * (from_epoch - theorbit->epoch); 


/* M= MO +n (t - t0) ae 
if (m == 0.0) /* by definition x / 
en = theorbit->eccentric_anom; 
else 
{ 
en = PI; /* intial guess normally converges a: 
mi = en; /* mean anomaly init assume as same e/ 
iter = 0; 
while ( (abs(m - mn)>GL_EPSILON) && (iter<10) ) 
{ 
Lter = 1terme +5 
en = en + (m - mn) / (1.0 - (theorbit->eccentricity * cos (en) ))> 
m= en - (theorbit->eccentricity * sin(en) ); 


theorbit->eccentric_anom = en; 
return( theorbit->eccentric_anom ); 
} [x xkkkkkkkkxkxk* function approximate eccentric anomaly ~**~~ au 


/* KEK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKKKRKKK 


kl_geccp : get eccentric anomaly from mean anomaly and time 


with first order aspherical gravitational perturbations 
KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KEE KKKRKKKEKKKKKKK * / 


Angle 

kl_geccp(theorbit, from_epoch) 
Orbe lvpe *CHheouoie. 
Time from_epoch; 


{ 
/* Use kl_gecca after updating mean anomaly (M), long of ascending 
node (ASN) and argument of perigee (ARGP) by the formulas: 


M = M aig ae lle (t-t0) 
ASN = ASN + ASN' (t-t0) 
ARGP = ARGP + ARGP' (t-tQ) 

(Erom Smten pp a.os”) uy 
Angle m; /* new mean anomaly (M) sy) 
Angle asn; /* long of ascending node (ASN) x / 
Angle argp; /* argument of perigee (ARGP) a 
Angle MECnG. /* rate of change of mean anomaly 7 
Angle asn_chg; /* rate of change of long of ascend node*/ 
Angle argp_chg; /* rate of change of argument of perigee*/ 
Dist a; /* semi-major axis aie 
Dist psqr; /* semi parameter squared i 4 
Angle Ls /* Ane inaeten ee 
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Real sinsqr; [sin ae Sin 1 x / 
Real e; /* eccentricity ay 


a = gl gorba(*theorbit) ; 


e = gl_gorbe(*thecrbit); 
me= CV gangr(gl gorbi(*theorbit) )7 
Sinsqr = sin(i) * sin(i); 


psqr = gli_gsemi(a, e); 
psqr Doge. ~—1psaa, 


imeng = gi gmean(a) * 
eae ec her itary adic es sgrt(i>et*e) * (l-l,5%sinsqr) / psqr); 


femmecnge- =—(1-5 * gi primary.J2 * cos(i) / psqr) * m_chg; 


Eee eb oe Glaprimary.J2 * (2.0 - 2.5*sinsqr) / psqr) * m_chg; 


/* Update the orbital elements in place */ 
theorbit->mean_anom = 
theorbit->mean_anom + m_chg * (from_epoch - theorbit->epoch) ; 
eNO TM? (ee £0) ae 
theorbit->long of asc_ node = 
EmeOrbtt=>long Of asc mode + asn_chg * (from_epoch - theorbit->epoch) ; 
/* ASN = ASN + ASN' (t - t0) ae 
theorbit->arg_of_ perigee = 
theorbit->arg_ of perigee + argp_chg * (from_epoch - theorbit->epoch) ; 
/* ARGP = ARGP + ARGP' (t —- t0) =) 


meeurn( kl_gecca(*theorbit, from_epoch) ); 
me cna sx ex xxx Luncttomeperturbedmeccentric anomaly *******x*xx* */ 
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[ERK KKRKKKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKKKKKKK KKK KKK KK KK KK 


FILENAME ; tamelib.¢ (ti 
DESCRIPTION >: Time Calculation StdLib source file 
ENVIRONMENT >: Macintosh SE 1Mb RAM 

Light Speed™""Ga 72745 
AUTHOR : Captain Kenneth L. BEUTEL USMC 
ADVISORS >: Prof. Dan Davis 


Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS : none 
VERSION = 0.9 (3/6/7638) 
CHANGES : 3/6/88 Formatted for MacWrite conversion 


KEK KK KKK KEK KEKE KK KEK KKK KK KKK KKK KKK KKK KKK KEK KKK KKK KKK KEKE KEK KKKKKKKKKKKKKKKEKSEK x / 


#include <stdio.h> 
#include <storage.h> 
#include <math.h> 
#include <strings.h> 


/* 


include the StdLib header file's typedefs and global variables i; 


#include "StdLib.h" 


Whee 


/* 


Because this is a library no main procedure is allowed or required 
all function names follow the standard convention 
tl_adddd - where tl is the library name (time library) 


a is the action that the function performs (such as 
initialize, get, set, and query) 
dddd is the function's descriptive name ay) 


KKK KK KKK KEKE KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KK KKK KKK KKK KKKEKEKKKKKKKKKKKKKKE 


special Notes : Time is considered to be in sidereal radian units 
unless explicitly specified. 


Angular measures are abstracted to remove the 


requirement for unit specifications. 
KEK KK KKK KK KKK KKK KKK KEK KKK KKK KKK KEK KKK KKK KKK KKK KEK KKK KKKKKKKKKKKKEKKEKKEK x / 


/* year table is a tabular representation of dates and times 
(ex{pressed as a radian angle) used to approximate Greenwich sidereal 
time by function tl_gknow(). x / 
#define TL_TABLE_ SIZE 21 
static Real tl year table[(TL TABLE SiZnjiZiee 


{ 
1968.0, 1.74046 , 1969.0) ease , 1970.0, le7a2eey 


SZ 


og sO, 274517 peo 2 Oe. 7 21016 pe ODS eee ll, 
mo74.0, 1.74995 fee ae LST a5 77 pelo 620, eta 503, 
mo72 0, 1.75461 oo Ue 2 15042 Peon oye. (4624, 
me0-.0, 1.74208 pee Ot U2 FOOL 1 poe 2 UL emo, 
H35-0, 6.67192 jer loe4.0, 1.74262 eee 1 47327, 
36.0, 1.75149 ue 8570, 74733 yee L960 Ge 743106 


/* KEKE KKK KKK KKK KK KEK KKK KEK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKKE KEK 


tl gzone : get time zone number (hours from GMT) at observer's longitude 
KKK KKK KKK KEK KKK KKK KKK KEKE KEKE KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK * / 
Real 
tl gzone (longitude) 
Angle longitude; 
{ /* do the equivalent of modulus x / 
Real xX; 


x = cv_gangd (longitude) ; 
meee ( ; (x > 360.0) >; x = x -— 360.0); 
mor ( ; (x < 0.0) ; x = x + 360.0); 


Mmememtrn( floor( x / 15.0) ); 
} /* KKK K KK KKK KKK FUNCE TON get time zone KEKE K KK KEK KKK KKK KKK KK KK KK x / 


/* KEKE K KKK KK KKK KKK KKK KKK KKK KK KKK KK KKK KK KKK KKK KKK KEKE KK KKK KKK KK KKK KKK KKK 


tl_gznam : get time zone name (std abbrev) for given time zone number 
KRREKEKKKKK KK KK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK * / 


emar * 
tl gznam(number) 
Real number; 
{ 
ont thezone; 
thezone = number; /* coerce to integer type ney 
if ( (thezone < 0) || (thezone > 24) ) 
recurn ("INV."); /* INValid rh ff 


Switch (thezone) 


{ /* No need to break because of return 7 
case 24: 
case 0: 
Becurn("GMT ") ; /* Next 8 std time zones from the U.S. 
Uniform Time Act of 1966 : */ 
case 4: 


mecurn("AST ™); 


Ss 


/* 


case 5: 

returme Bole 
case 6: 

returma( Csr =); 
case 7: 

BelWUrne Mol | a: 
case 8: 

return Pot); 
case 9: 

return YSsr “> 
case 10: 

return AAST. ).; 
case ll: 

FEturnit BST") ] 
default: /* No source for name conventions x / 

Feturnm (2 - ] fe, 
} 


/* KKEKKKKEKKKKKKK function get time zone name **X KK KKKKKKKKKKKKKKKE *x / 


KKK KK KKK KKK KKK KKK KKK KK KKK KKK KK KEK KKK KKK KKK KK KEK KKK KK KK KEK KKKKKKKKKKKKKEK 


tl_gknow : get known Greenwich sidereal time (rad) from tabulated time 
KK KEKE KKK KKK KKK KEK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKKKKKKKK * / 


Time 
tl _gknow(known_date) 
Real known _ date; 
{ 
Time known_time; 
abole a 
Real dummy, month, day, known_year; 


/* 


tl_gmdyr(known_date, &month, &day, &known_year); 


af ((montho !=.1..0)" "|. “(davis —=si20)) 
return( (Time) -1.0 ); /* only Jan lst dates are tabulated x7 
known _time = -1.0; /* assume time requested not in table */ 


for (i=0; i<TL_TABLE SIZE; i=i+1) 
{ 


if (tl year table[i][0] == known_year) 
known_time = (Time) tl_year table[i] [1]; 
} /* get corresponding time for that yr */ 


return( known_time ); 
[* kkkkkkkk*k function get known Greenwich sidereal time *********ega7 


KKEKKK KKK KKK KK KEK KKK KEKE KKK KKK KKK KEK KKK KK KER KEKE KK KKK KKK KKK KKK KK KKK KEKEKKKEKKKK 


tl ggren : get Greenwich sidereal time (approx) in radians 
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KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KEK KKK KKK KKK KEKE KKK KKK KEK KK KKK x, 


Angle 
tl ggren (datetime) 
DateTime datetime; 
{ 
Time known time, approx time; 
Real dummy, Start year, known_date, num_rotations; 


tl_gmdyr(datetime.date, édummy, &dummy, &start_year); 
Me(start year < 1955) 
return( -1.0 ); /* no data on record before 1955 x / 


known date = £t1_gjuld(i.0, 1.20, start_year); 

for {( ; known date>= datetime.date ; ) 

{ /* scan for lst rec less than desired */ 
Start Year = Start year - 1.0; 
Known date = tl gjuld(1.0, 1.0, start_year); 


known _ time = tl_gknow(known_date) ; 
/* get known time for that date x / 


Muierotations = datetime.date - tl gjuld(1.0,1.0,start_year) 
+ (datetime.time / 24.0); 
/* per day * / 


approx time = known_time + 
(linc ep ramdrve dang uret ~.24.0 * num rotations) ; 
return( approx _time ); 
Mus XA *AXXXAX Tunction get Greenwich sidereal time ********xxx* x/ 


/* KKK KEKE KKK KEK KEK KEK KKK KKK KEKE KEKE K KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KEK 


tl_glstm : get local sidereal time at observers longitude. 
KERKEKK KEK KKK KEKE KEKE KEK KK KKK KKK KKK KK KKK KKKKKKE KKK KKK KKK KKK KKK KKK KKK K KKK * / 


Angle 
tl_gistm(longitude, datetime) 
Angle longitude; 
DateTime datetime; 
{ 
Real radians east; 
radians east = cv_gangr (longitude) ; 
return( tl_ggren(datetime) + radians_east ); 
} [xe KKKKKKKKKKKEKKK Function get local sidereal time **** KKK KKK KKK &/ 


/* RRR KKK KKK KKK KK KEK KKK KK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KK KK KKK KK 


ep 


tl_gjuld : get julian date (in whole days). 


KEK KKK KKK KKK KK KKK KKK KK KKK KKK KKK KE KKK KK KKKKKKKKKKKKKK KKK KKK KKK KK KK KK xf 


Real 
tl gjuld(month, day, year) 
Real moneEh, day, veau, 


{/* Range of data is : 1 <= month <= 12, 1<= day <= 31, 1700 <= year 
This routine is from pp. 19 of “Ll9 Practical Progransw. ome] 


TRS-80 Pocket Computer" by John Clark Craig, TAB Books (1982). x] 
Real julian; /* declare result xf 
Real Nn, Ze eo wee Vs and some temps a 


julian = floor(365.2422*year + 30.44*(month-1.0) + day + 1.0); 
n = month = 2.0 + 12:0 * “(month<oaipe 
= year - (month<3.0); 
= flooriz, 100.0); 
= z- 100.° °° e; 
= floor(2.61 * n = 0.2) + day + z + Ellocrx2 170) 
+ floor(e/4.0) - 2.0*e; 
w=w- 7.0 * floor(w/7.0); 
x = julian = 7.0 * flcor Gulan, 7 aun 
julian = julian ~ x + w- 7.0 * (x<w) + 1721061.0; 


= N ON 


FeCuLn (julian. 
} /* KKKKKKKKKKKKK function get julian date KKK KKKKKKKKKKKKKKKKKKKEK x / 


/* KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKEKKKKEKKEKKEKKKKKKK 


tl_gmdyr : get month, day and year from julian date (in whole days). 


KEKE KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKKKKEKKKKKKKEK * / 


void 
tl gmdyr(julian, month, day, year) 
Real julian; 
Real *month, *day, *year; 


{ 
/* This routine is trom pp. 19-20 of "119 Practical Programs for the 


TRS-80 Pocket Computer" by John Clark Craig, TAB Books (1982). * / 

Real savejulian; 
/* declare result if 

savejulian = julian; 
/* solve for year by making a guess and backing into the answer 7 

*vear = floor( (julian=-1721061-.0) / 365525 + ag 

*month = 1,0; 

*day = 1.0; 

julian = tl -gjuld(*month, “day7e yeaa 


for ( ; julian>savejulian ; ) 
{ 
*year = *year - 1.0; 
julian = tl_gjuld(*monthymeday, “year, 
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} 


/* now solve for month by making a guess and backing into the answer */ 
*month = floor( (savejulian-julian) / 29.0 + 1.0); 
julian = tl gjuld(*month, *day, *year); 
fer { ; julian>savejulian ; ) 


{ 


*month xmonth - 1.0; 
julian = tl _gjuld(*month, *day, *year); 


/* remainder is the number of days in the month x / 
*day = savejulian - julian + 1.0; 
} /* KKEKKKKEKKKKKKK function get month, day, year KEKE KRKEKKKEK KKK KKKKEK * / 


Sy 


APPENDIX C STANDARD LIBRARY DOCUMENTATION 


This appendix documents the services available from the standard library in a specific 
format. The format used by this appendix is similar to the conventions used in the 
documentation of UNIX commands and system calls. Each function or group of related 
functions that is found in the standard library is described independently on a separate 
page. Various type styles are used in a formal way to differentiate the exact purpose that 
each item of text provides. 


The type style formatting rules include: 
¢« The use of bold face and capital letters for section headings (e.g., NAME) 


¢ The use of bold face for function names when they are mentioned inside of a 
body of text (e.g., gl_ gangd()) 


¢ The use of italics to designate parameters to functions when they are 
mentioned inside of a body of text (e.g., dateinput) 


The format of each documentation page 1s as follows: 


¢ A function header which lists the function name and the library it 1s located 
in. The function name is followed by ellipses if the documentation page is 
for more than one function. 


¢ A name section consisting of a section header and the name of all functions 
documented by this page 


¢ A syntax section that lists each function and its associated arguments 
¢ A description section that describes the duty of each function 
¢ An optional section that describes the return value, if one exists. 


¢ Anoptional section that describes any known difficiencies or input cases not 
handled by the documented functions 


¢ An optional "see also” section that cross references the user to other related 
functions 
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The standard library defines several abstract data types which are used repeatedly by 
these various routines. These values are declared in the header file "StdLib.h” of the 


standard library source code. The principle data structures are: 


¢ Angle - used to define an abstract storage representation for angle measures 

¢ Dist - used to define an abstract storage representation for length measures 
«Time - used to define an abstract storage representation for time measures 

¢ Real - used to represent other floating point numbers not in abstracted form 
«DateTime  - used to represent the aggregate of specific julian date and time of day 
¢OrbitType _- used to represent the aggregate of elements comprising an orbit 


*PQWCoord - used to represent the aggregate of 3 PQW position elements 
¢IJKCoord  - used to represent the aggregate of 3 NK position elements 
¢GEOCoord - used to represent the aggregate of 3 GEO position elements 
¢RADCoord - used to represent the aggregate of 3 RA-Decl position elements 
¢SEZCoord  - used to represent the aggregate of 3 SEZ position elements 


¢ PrimaryType - used to represent the aggregate of elements comprising the primary 
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gl_idflt GENERAL LIBRARY gl_idflt 


NAME 
gl_idfltQ; 
SYNTAX 
#include "StdLib.h" 
void _—_gl_idflt(); 
DESCRIPTION 


this functien initializes the entire standard library 
package witn the earth as the default primary body. 


INPUT RESTRICTIONS 
The use of this function is required before any other 
standard library functions are called or anomalous 
results may occur. 
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gl_gpnam GENERAL LIBRARY g]_gpnam 


NAME 

gl_gpnam (); 
SYNTAX 

#include "StdLib.h" 

char *gl_gpnam(); 
DESCRIPTION 


this function retrieves the string value that names the 
primary body currently being used. 


RETURN VALUE 
a pointer to a previously allocated C string variable. 


INPUT RESTRICTIONS 
After initialization, the default value returned by this 
function 1s Barth ; 


SEE ALSO 
gl_idfltQ); 


a 


gl_sorbt GENERAL LIBRARY gl_sorbt 


NAME 
gl_sorbtQ); 
SYNTAX 
#include "StdLib.h" 
void gl_sorbt(char *name, Real a, Real e, Angle 1, 
Angle mean_anom, Angle peri, Angle asn, 
Time epoch, Real date, OrbitType *orbrec ); 
DESCRIPTION 


this function takes a standard set of orbit parameters and 
stores them in the orbrec structure in an internal format. 
This function should be used to establish values for all 
orbit records used by the standard library. 


INPUT RESTRICTIONS 
The variables using the abstract data types Angle and 
Real should be set by Conversion Library functions. 


SEE ALSO 
cv_sangd(); 
cv_sangr(); 
Cv ICdiskt. 
cv_ckdisQ); 
cv_ckspdQ); 
cv_cspdk(); 


gl_gorbn... 


NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


SEE ALSO 


GENERAL LIBRARY gl_gorbn... 


gl_gorbnQ); 


_ gl_gorbaQ); 


gl_gorbe(); 
gl_gorbi(); 
gl_gorbm(); 
gl_gorbpQ); 
gl_gorbl(); 
gl_gorbt(); 


#include "StdLib.h" 

char  *gl_gorbn (OrbitType orbit); 
Dist *9]_gorba (OrbitType orbit); 

Real *gl_gorbe (OrbitType orbit); 
Angle *gl_gorbi (OrbitType orbit); 

Angle *gl_gorbm (OrbitType orbit); 
Angle *gl_gorbp (OrbitType orbit); 
Angle *gl_gorbl (OrbitType orbit); 

Time *gl_gorbt (OrbitType orbit); 


these functions return a single orbital element from the 
abstract OrbitT ype variable orbit. The values returned 
are the orbit name (gl_gorbn), semimajor axis 
(gl_gorba), eccentricity (gl_gorbe), inclination 
(gl_gorbi), mean anomaly (gl_gorbm), argument of 
perigee (gl_gorbp), longitude of the ascending node 
(gl_gorbl), and epoch time (gl_gorbt), respectively. 


Each of these functions returns a single abstract data 
value. The value returned may then be manipulated via 
the Conversion Library to obtain the desired system of 


Wnts. 


cv_gangd(); 
cv_gangr(); 
cv_cdiskQ; 
CVECKCIS(): 
cv_ckspdQ); 
cv_cspdkQ); 


2. 


gl_grada... GENERAL LIBRARY gl_grada... 


NAME 
gl_grada(); 
gl_gradpQ); 
SYNTAX 
#include "StdLib.h" 
Dist el_srada(Dist a, Real e); 
Dist g]_gradp(Dist a, Real e); 
DESCRIPTION 


these functions calculate the radius of apogee 
(gl_grada) and radius of perigee (gl_gradp) from an 
orbit's semimajor axis (a) and eccentricity (e). 


RETURN VALUE 
a distance measure that is in the same system of units as 
the semimajor axis,a. 
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gl_gradi GENERAL LIBRARY g]_gradi 


NAME . 

gl_gradi(); 
SYNTAX 

#include ‘StdLib.h" 

Dist g]_gradi(Dist p, Real e, Angle nu); 
DESCRIPTION 


these functions calculate the radial distance to a satellite 
from the orbit's semiparameter (p) eccentricity (¢), and 
true anomaly angle (nit). 


RETURN VALUE 
a distance measure that is in the same system of units as 
the semiparameter,p. 


SEE ALSO 
gl_gsemi(); 


2» 


NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


INPUT RESTRICTIONS 


SEE ALSO 


GENERAL LIBRARY gl_gtrue 


gl_true(); 


#include "StdLib.h” 
Angle gl_true(Dist x, Dist y, Dist p, Real e); 


this function obtains the true anomaly angle to a satellite 
from its in-plane x and y coordinates (x,yj, 
semiparameter (p), and eccentricity (é). 


an abstract angular measure that should be accessed via 
the Conversion Library routines. 


the distance measures must all be in the same system of 
units. 


cv_gangd(); 
cv_gangr(); 
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gl_gxpos... GENERAL LIBRARY gl_ gxpos... 


NAME 
gl_gxpos(); 
gl_gypos(); 
SYNTAX 
#include "StdLib.h" 
Dist gl_gxpos(Dist p, Real e, Angle nu); 
Dist gl_gypos(Dist p, Real e, Angle nu); 
DESCRIPTION 


these functions obtain the in-plane x and y coordinates 
of the given orbit from the semiparameter (p), 
eccentricity (e) and true anomaly (nu). 


RETURN VALUE 
a distance measure that is in the same system of units as 
the semiparameter,p. 


ST 


gl_gsemi GENERAL LIBRARY gl_gsemi 


NAME 

gl_gsemi(); 
SYNTAX 

#include "StdLib.h" 

Dist gl_gsemi(Dist a, Real e); 
DESCRIPTION 


this function calculates a value for the semiparameter 
from the semi-major axis (a) and eccentricity (e). 


RETURN VALUE 
a distance measure that is in the same system of units as 
the semi-major axis (a). 
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gl_gmean GENERAL LIBRARY gl_gmean 


NAME 

gl_gmean(); 
SYNTAX 

#include "StdLib.h" 

Real _—g]_ gmean(Dist a); 
DESCRIPTION 


this function calculates a value of the mean motion 
constant from the semi-major axis, a. 


RETURN VALUE 
a distance measure that is in the same system of units as 
the semi-major axis (@) and the gravitational parameter 
that the system is defined for (initialized for kilometers). 


29 


gl_gperd GENERAL LIBRARY gl_gperd 


NAME 

gl_gperdQ); 
SYNTAX 

#include "StdLib.h" 

Time  gl_ gperd(Real n); 
DESCRIPTION 


this function calculates the period of a satellite from the 
mean motion constant (7). 


RETURN VALUE 
a time measure that is in the same system of units as 
the gravitational parameter that the system is defined for 
(initialized for seconds). 


SEE ALSO 
gl_gmean(); 


100 


gl_gvelo... GENERAL LIBRARY gl_gvelo... 


NAME 
gl_gvelo(); 
gl_gvescQ); 
SYNTAX 
#include "StdLib.h" 
Real _—_gl_gvelo(Dist r, Dist a); 
Real _—_ gl_gvesc(Dist r); 
DESCRIPTION 


this function calculates the orbital velocity and the 
escape velocity of a satellite with semi-major axis (@) 
and radial distance (r) from the primary. 


RETURN VALUE 
a speed measure that is in the same system of units as 
the gravitational parameter that the system is defined for 
Gnitialized for km/seconds). 


SEE ALSO 
gl_gradi(); 
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gl_gfltp GENERAL LIBRARY gl_gfltp 


NAME 

gl_giltpQ); 
SYNTAX 

#include "StdLib.h" 

Angle  gl_gfitp(Real h, Dist r, Real v); 
DESCRIPTION 


this function calculates the flight path angle of 9 satellite 
at a radial distance (r) from the primary using velocity 
(v) and angular momentum (h). 


RETURN VALUE 
an abstract angular measure that should be accessed via 
the Conversion Library routines. 


INPUT RESTRICTIONS 
velocity must be specified in the same system of units as 
the gravitational parameter that the system 1s defined for 
(initialized for km/seconds). 


SEE ALSO 
gl_gangm(); 
gl_gradiQ; 
gl_gveloQ; 


Sill @Saen: 


NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


INPUT RESTRICTIONS 


SEE ALSO 


GENERAL LIBRARY gl_glosd... 


losdQ; 


gl_glosd¢ 
gl_ggswi(); 


#include "StdLib.h" 
Dist gl_glosd(Dist r, Angle gamma); 
Dist gl_ggswi(Dist r); 


these functions calculate the line of sight distance to the 
horizon and the geometric swath width at a radial 


distance (7). 


an arbitrary distance measure that can be modified via 


the Conversion Library routines. 


the angle gamma should be an acute angle measured 


above the local horizontal. 


gl_gradiQ); 
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gl_gangm GENERAL LIBRARY gl_gangm 


NAME 
gl_gangm(Q); 

SYNTAX 
#include "StdLib.h" 
Real gl_gangm(Dist a, Real e); 

DESCRIPTION 
this function calculates the magnitude of the angular 
momentum of a satellite at a radial distance (7) from the 
primary. 

SEE ALSO 


gl_gradi(); 
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gl_gspen GENERAL LIBRARY gl_gspen 


NAME 

gl_gspenQ); 
SYNTAX 

#include "StdLib.h" 

Real gl_gspen(Real v, Dist r); 
DESCRIPTION 


this function calculates the specific energy of a satellite 
moving with velocity (v) at a radial distance (7) from the 
primary. 


INPUT RESTRICTIONS 
speed and distance measures must be in the same 
system of units as the gravitational parameter that the 
system 1s defined for (initialized for km/seconds). 


SEE ALSO 
gl_gveloQ); 
gl_gradi(); 


US 


ilmes Zone... 


NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


INPUT RESTRICTIONS 


TIME LIBRAKS« tl_szonem 


tl_gzone(); 
tl_ gznam(Q); 


#include "StdLib.h" 
Real _—_ tl_gzone(Angle longitude); 
char *t]_gznam(Real zonenumber); 


the function tl _gzone performs a coarse time zone 
calculation for the given longitude. 

when given the zonenumber the function tl gznam 
will determine the standard abbreviation for that time 
zone. 


the function tl _gzone() returns the number of the 
time zones (hours) west of the Greenwich meridian. 
This function does not correct for time zone deviations 
from true longitude or daylight savings time. 

the function tl_gznam() returns a pointer to a four 
character string containing the time zone abbreviation. 


the input to tl_gzone() is an abstract angular measure 
that should be accessed via the Conversion Library 
routines. 

tl_gznamQ) will accept any numeric value but will only 
produce valid results for real numbers representing the 
integers 1-24. 
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tl gknow 


NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


INPUT RESTRICTIONS 


TIME LIBRARY tL gknow 


tl gknow(); 


#include "StdLib.h" 
Time — tl_gknow(Real known_date); 


for dates that exist in an internal table this function 
determines the conversion from universal time to 
sidereal time. 


for valid dates, the difference between the time systems 
is returned, -1 otherwise. 


any julian date in real format is accepted as input but the 
table may not contain results for that specific date. 
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NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


INPUT RESTRICTIONS 


SEE ALSO 


TIME LIBRARY tl_ggren... 


tl_ggren(); 
tl_glstm(); 


#include "StdLib.h" 
Angle tl_ggren(DateTime datetime); 
Angle — tl_glstm(Angle longitude, DateTime datetime); 


the function tl ggren approximates Greenwich 
Sidereal Time for a given datetime record. 

the function tl_glstm approximates the local sidereal 
time for an observer at longitude east of the Greenwich 
Meridian. 


an abstract angular measure that should be accessed via 
the Conversion Library routines. 


the datetime structure should contain valid values for 
both time of day and julian date. 


t_gknow(Q); 
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eles juld... 


NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


INPUT RESTRICTIONS 


TIME LIBRARY tl_gjuld... 


tl_gjuldQ); 
tl_gmdyr(); 


#include "StdLib.h" 

Real —_ tl_gjuld(Real month, Real day, Real year); 

void _ tl_gjuld(Real julian, Real *month, Real *day, 
Real *year); 


a pair of complementary functions that convert between 
julian date and month, day year date formats. 


the number of julian days in real format is returned by 
tl_ gjuld. The function tl_gjuld uses pass by 
reference to supply real number representations for the 
month, day, and year. 


if invalid dates are specified in either format the results 
are unpredictable . 


HO? 


cv_saned... 


NAME 


Sera Ack 


DESCRIPTION 


RETURN VALUE 


SEE ALSO 


CONVERSION LIBRARY cv_saned.. 


cv_sangdQ; 
cv_sangr(); 


#include "StdLib.h" 
Angle cv_sangd(Angle degrees); 
Angle  cv_sangr(Angle radians); 


these functions store angle values, specified in degrees 
or radians, in an internal representation. 


an abstract data representation of the angle specified. 


cv_gangdQ); 
Cv_ganer(); 
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cv_gangd... CONVERSION LIBRARY cv_ganed.. 


NAME 
cv_gangdQ); 
cv_ganegr(); 
SYNTAX 
#include "StdLib.h" 
Angle cv_gangd(Angle value); 
Angle cv_gangr(Angle value); 
DESCRIPTION 


these functions return angular representation for angles 
in degrees (cv_gangd) or radians (cv_gangr) from an 
internal value. 


RETURN VALUE 
an angle measured in degrees and radians, respectively. 


SEE ALSO 
cv_sangd(); 
cv_sangr(); 


Linch 


Cyecsoler CONVERSION LIBRARY CV_gSOligm 


NAME 
cv_gsolt(); 
cv_gsidt(); 
SYNTAX 
#include "StdLib.h" 
Time — cv_gsolt(Time value); 
Time  cv_gsidt(Time value); 
DESCRIPTION 


this pair of complementary functions convert between 
sideral (cv_gsolt) and solar (cv_gsidt) formats. 


INPUT RESTRICTIONS 
the time values must be in a compatible system of units. 


ey cdisk... 


NAME 


SYNTAX 


DESCRIPTION 


INPUT RESTRICTIONS 


CONVERSION LIBRARY CV Reis. 


cv_cdisk(); 
cv_ckdisQ); 
cv_cspdk(); 
cv_ckspdQ); 
cv_chum(); 
CvEchiint): 


#include "StdLib.h" 

Dist cv_cdisk(Dist canon_distance); 
Dist cv_ckdis(Dist km_distance); 
Real cv_cspdk(Real canon_speed); 
Real cv_ckspd(Real km_sec); 

Time  cv_chtim(Time canon_time); 
Time  cv_gtimh(Time sec_time); 


these three pairs of complementary functions convert 
between the metric system of units and canonical units. 
The function ev_edisk converts from canon_distance 
to kilometers. 

The function cv_ckdis converts from km_distance to 
canonical distance (radii of the primary). 

The function cv_spdk converts from canon_speed to 
kilometers/sec. 

The function cv_ckspd converts from km_sec to 
canonical speed (radii per herg). 

The function cv_chtim converts from canon_time 
(hergs) to kilometers. 

The function cv_ctimh converts from sec_time 
(seconds) to canonical time (hergs). 


the values must be in the specified system of units. 


Hel 


CS_gpqwe... 


NAME 


SYNTAX 


DESCRIPTION 


RETURN VALUE 


COORDINATE SYSTEM LIBRARY cv_gpqwe.. 


cs_gpqwe(); 
cs_gijkc(); 
cs_gpqwk(); 
cs_gijksQ): 
cs_gijkr(); 
cs_gradc(); 
cs_ggeoc(); 
cs_gijkg(); 


#include "StdLib.h" 

void cs_gpqwc(OrbitData orbit, 
PQWCoord *pqw_pos); 

void  cs_gikc(OrbitData orbit, IJ/KCoord *1jk_pos); 

void cs_gpqwk(OrbitData orbit, IJKCoord ijk_pos, 
PQWCoord *pqw_pos); 

void  cs_gijks(OrbitData orbit, SEZCoord sez_pos, 
Angle lat, Angle lon, IJ/KCoord *ijk_pos); 

void cs_gikr(OrbitData orbit, RADCoord rad_pos, 
IJK Coord *1jk_pos); 

void cs_radc(OrbitData orbit, IJKCoord ijk_pos, 
RADCoord *rad_pos); 

void cs_ggeoc(OrbitData orbit, 
GEOCoord *geo_pos); 

void  cs_gijkg(OrbitData orbit, GEOCoord geo_pos, 
IJKCoord *1jk_pos); 


these functions calculate the position of a satellite from 
theorbit in one of several different coordinate systems. 


each function uses pass by reference to supply an 
abstract data representation of position from theorbit. 
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Min CECCA... 


NAME 


SYNTAX 


DESCRIPTION 


INPUT RESTRICTIONS 


KEPLER LIBRARY k]_gecca... 


Folmoe cca )- 
kl_geccpQ); 


#include "StdLib.h” 
Angle kl_gecca(OrbitType theorbit, Time frm_epoch); 
Angle kl_geccp(OrbitType theorbit, Time frm_epoch); 


this function uses an iterative approach to solving the 
Kepler Problem of determining the location of a 
satellite. The satellite is initially located at a position 
provided by theorbit and a new position is requested at 
from_epoch units of time later. 


the from_epoch time value must be in seconds. 
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#ifndef 
#define 


APPENDIX D 


MACORBITS SOURCE LISTING 


JMacOrbits.) 
-MacOEbLeEs | 


[RR KK KKK KKK KKK KR KKK KKK KKK KK KKK KEK KKK KK KKK KKK KEK KKK KERR KKK KKK KKK KK KK KKK KKK 


FILENAME 


DESCRIPTION 


ENVIRONMENT 


AUTHOR 


ADVISORS 


REMARKS 


VERSION 


CHANGES 


MacOrbits.h 

header file for MacOrbits project 
Macintosh SE 1Mb 

LightSpeed'™ esv2 715 

Captain Kenneth L. BEUTEL USMC 

(Some portions Copyright Think Technologies) 
Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
Contains globally used constants/variables 
0:9 (376/88) 


3/6/88 Formatted for MacWrite conversion 


RRR KKK KR KKK KKK KKK KKK KK KKK KEKE KEKE KEK KKK KKK KEK KKK KKK KEK KKK KKK KKK KKK KKKKKKK * / 


/* resource ID's of windows, 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


Fae fine 


#define 


windowID 
GenericAlertID 
DirtyFileID 
AboutAlertID 
NewOrbitID 512 
setUnitsID 513 
TimeStepID 514 
TraceOrbitID 
PlotDurationID 


MapID 


GlobeID 


alerts and dialogs aly 
126 
256 
Zo 
/* advise saving changes before quit a 
Za0 
/* about Orbits... alere — 
/* define a new orbit... otal a 
/* measurement units... dialog ws 
/* set time step... dialog wl 
ops 
/* trace orbit path. seers a 
516 
/* position obsever... dialog <i 
600 
/* the map background PICT x / 
601 
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/* Base address for 3 Globe Picts x / 


/* xesource IDs of menus * / 
#define appleID 128 

#define fileID 129 

#define editID 1eS10 

#define Orbits ID iL Sha 

#define plotID ee 

#define windID ee 

#define specialID 134 

/* Menu indices ***** NOTE : these correspond to xxxID - appleID * / 
#define appleM 0 

#define fileM i 

#define editM 2 

#define orbitM 3 

#define plotM 4 

#define windowM S 

#define specialM 6 

/* File Menu items (4,8,11 are dimmed) cof 
#define fmNew IL 

#define fmOpen 2 

#define fmClose 3 

#define fmSave 5 

#define fmSaveAs 6 

#define fmRevert qd 

#define fmPageSetUp 9 

#define fmPrint 10 

#define fmXFER eZ 

#define fmQuit i3 

/* Edit menu command indices ef 
#define undoCommand 1 

#define cutCommand 3 

#define copyCommand 4 

#define pasteCommand 5 

#define clearCommand 6 

/* Plot Menu items (3 is dimmed) x / 
#define plONE it 

#define plCONT Z 

#define plRESET 4 

#define plSTOP 6 

/* DirtyFile alert Dialog button numbers a) 
#define dlgSave IL 
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#define 
#define 


#define 


#define 
#define 


#define 
#define 
#define 
#define 


#define 
#define 


#define 
#define 
#define 


#define 
#define 


/* Number 


#define 
#define 


digbiscarde 


digCancel 


SBarWidth 


BOX V 


BOX_H 


INFRONT 
NIL 

OEE 

ON 


MAXWINDOWS 5 
MAXGLOBES 3 


WINDOW _V 
WINDOW _H 


WH MAX 


MAP TOP 


MAE moe 


/* Other Important Definitions 
LS 


/* Orbital Element display box size 
16 
68 


el WE} 

OL 

0 

- 

/* 5 total windows available to user 


/ too Wy) 
40 
SO 
455 


left (H) and MaxRight 


/* Topleft corner of map 
80 
40 


i: 


ir 


x, 


ae 


xf 


of degrees of latitude and longitude per screen pixel in Map*/ 


PIX LAT 
PIX_LON 


Lalas 
1.153 


/* Potential coordinate systems that window can be drawn in 
IJK_COORDS 0 
PQW COORDS 1 
GEO COORDS 2 


#define 
#define 
#define 


/* origin position for POW coord windows 


#define 
#define 


typedef 


PQW_X 
PQW Y 


typedef struct 


{ 


int 


Boolean 
Boolean 


90 


200 


Ehaer St rs0 [504 


slotnum-: 


Gicey, 


newt ile: 


/* a shorter string for storage 


/* current slot window occupies 
/* has data for orbit been changed? 


/* source of data is not £Lromeauskee 
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oh 


a 


ae 


as 
ay 


ar 


Boolean 
int 


Serco 
ant 


nhIKCOord 
PQWCoord 
GEOCoord 
hIKCOOrG 
PQWCoord 
GEOCoord 
OrbitType 
meorbitinfo; 


typedef struct 
{ 

Boolean: 
abt t 
Boolean 
iene 
double 
tong int 


ong int 
feng int 
Boolean 
alate 


feng int 
Boolean 


double 
Boolean 
double 
double 

} Preferences; 


#fendif 


textonly; 

/* display data in text (no pics) 
coordinates; 

/* current coord system for window 
test; 
lastview; 

/* current view of spinning globe 
eae /*@earrent IJK position 
pqw; /* current PQW position 
geo; /* current GEO position 
Fase 1 WK? jowlast. bdK posit tom 
fast paw; /* last PQW position 
last_geo; peelast) GEO TpOsie1en 
orbitdata;/* Values for the orbit 


changes;/* changes to the Menu items ? 
bar state;/* Menu bar state Moepese li —leyal 
showmap;/* display/hide the map 

Sed umes; “metric (0), 1cangquscal (1) 

time _comp;/* time compression factor (x:1) 
elapsed_time; 

/* numTicks ago when last plot was done 
time; /* Wall clock time in seconds 
Sropstimc, /* =stop pPloeting action. (min) 
plotmines, * eulrrently computing orbits? 
plot_duration; 

/* plot plONE or plCONT 
draw_method; 

/* plot (0)dots (1)lines (2)both 
Gakigehe. jes foley 

/*x first time in curr plot seg 
draw_incr;/* increment plot every x minutes 
showaxes;/* show axes when plotting 
obs_lat;/* latitude of observer 
obs_lon;/* longitude of observer 
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FILENAME : MacOrbits . preterm. 
DESCRIPTION >: prototypes for functions used in MacOm eam 
ENVIRONMENT : Macintosh SE IMbp 
LightSpeed™ GZ 385 
AUTHOR : Captain Kenneth L. BEUTEL USMC 
ADVISORS >: Prof. Dan Davis 


Prof.@Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS 5 none 
VERSION = 0:29 %3767 sen 
CHANGES : 3/6/88 Formatted for MacWrite conversion 


KEK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK * / 


#lEndet ~MacOrbitsProto _ 
#define _MacOrbitsProto _ 

/* found an MacOrasts.¢ ae 
pascal void MO _ResumeProc(); 
ab give MO_MainEvent (); 
void MO_SetUpMenus () ; 
void MO_MenuClick( long mResult ); 
void MO_About (); 
void MO MaintainMenus () ; 
void MO SetUpCursors(); 
void MO_Init_ Preferences (Preferences *prefer) ; 
void MO_Init_Globes(); 

/* found in MacOrbits.fm.c a / 
abel e MO File(int item, char *theFileName, int *theVRefNum, 

WindowPtr myWindow) ; 
iat MO _ SaveAs(Str255 *name, int *vRefnum, WindowPtr myWindow ); 
ib ghe MO SaveFile(char *name, int vRefNum, WindowPtr myWindow) ; 
nia gle MO_ Advise (Str255 *s); 
agli e MO NewFile(Str255 *name, int *vRefnum) ; 
int MO_OldFile(Str255 *name,int *vRefnum) ; 
int MO OldApps (Str255 *name,int *vRefnum) ; 
nic MO CreateFile(Str255 *name, int *vRefnum, int *theRef); 
int MO WriteFile(int refNum, WindowPtr myWindow) ; 
int MO ReadFile(int refNum, WindowPtr myWindow) ; 
int MO ReadLine(char *buffer, int refNum) ; 
void MO fmNew(WindowPtr *myWindow, int slotnum); 

/* found in MacOrbits mapee ei! 
void MO CreateMap (BitMap *bm,WindowPtr *mapWindow) ; 
void MO DeleteMap (BitMap *pbm,WindowPtr *mapWindow) ; 
void MO DrawMap(BitMap bm, WindowPtr mapWindow) ; 

Int MO LattoPixel (double lat); 
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mnt 


void 
void 
wold 
void 
“ele | 
void 
void 
void 


void 
void 
wold 
void 
void 
voLd 
void 


void 
woud 
void 
int 


void 
void 
void 


double 
double 


void 
wo1.d 
void 
soya 


void 


Boolean 


nt 
void 
ont 


Boolean 
Boolean 


void 
void 


WindowPtr 


Void 


MO LontoPixel (double hen) ; 


/* found in MacOrbits.menu.c 
MO OrbitsMenu(int theItem, WindowPtr theWind) ; 
MO PlotMenu(int thelrtem); 
MO _SetPlotDuration(); 
MO WindowMenu(int thelItem); 
MOwspecialMenu(int thelrtem) ; 
MO SetUnits(); 
MO TimeStep(); 
MoOn@sbi tl race () ; 


/* found am MacOrbits .pl.c 
MO TextOnly(OrbitInfo orbitinfo); 
MeOmOrawsalitant row, 2nt col; char *“Sstr) ; 
MO DrawALL(OrbitInfo orbitinfo, WindowPtr theWind); 
MO DrawIJK(OrbitInfo orbitinfo, WindowPtr theWind) ; 
MO DrawPQW(OrbitInfo orbitinfo, WindowPtr theWind) ; 
MO DrawGEO(OrbitInfo orbitinfo, WindowPtr theWind) ; 
MO MaintainPlot( ); 


A foundsim MacOroits.pr.¢c 
MO CheckPrintHandle(); 
MO PageSetUp(); 
MO PrintOrbitText (WindowPtr theWind) ; 
MO HowMany () ; 


/  SeOund 2neMacOrbics ut .c 
MO Wait (); 
MenpoerGepy ( )i; [Fs “elgyeie = jolly Macelel-\negetd of 
Memo oeeomeadt (9); /* char *pl, char *pZ, char *out 
PempotcZNum(StrZ255 “stxr) ; 
MempotrZJIultan(strzoo *Str); 
MO Generic(); [PP SEEZO0 pst OeLZ OO SZ 
MO OutlineButton (Rect r, DialogPtr theDialog) ; 
MO Pause(int x); 
Menerune (double x) ; 


/* found in MacOrbits.wm.c 
MO CreateWindow(WindowPtr *theWind, int *slotnum) ; 
MO_isNewFilw(WindowPtr theWind) ; 
MO_isDirty(WindowPtr theWind) ; 
MO SetDirty(WindowPtr theWind, Boolean thebit) ; 
MO_ours(WindowPtr theWind) ; 
MO AvailWind(); 
MO _DuplicWind(Str255 newname) ; 
MO RemoveWindow(WindowPtr *theWind) ; 
MO HideWindow(WindowPtr theWind) ; 
MO FirstWindow(); /* First window used in storage list 
MO UpdateWindow(WindowPtr theWind) ; 
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Vold MO _GrowWindow (WindowPtr theWind, Point p); 

A > 
void MO ForceUpdate (); 
WindowPtr MO_NextWindow (WindowPtr current) ; 


#endif 
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F ITI LENAME  MacOroits Cc 
DESCRIPTION >: main driver program contains main 
event loop 
ENVIRONMENT >: Macintosh SE I1Mb 
haghtopeed’™’ C v2.15 
AUTHOR : Captain Kenneth L. BEUTEL USMC 
ADVISORS : Prof. Dan Davis 
Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 
REMARKS Contains Mac specific driver shell 
instructions 
VERS ION Om 3y 6/83) 
CHANGES >: 3/6/88 Formatted for MacWrite conversion 


KKK K KK KK KKKKKKEK KK KK KKK KEK KEK KEKKKKR KKK KKK KKK KKK KEK KK KEK KK KKEKKEKKKEKKRKKEKKKEKEKK x / 


#include "QuickDraw.h" 
#include "MacTypes.h" 
#include "FontMgr.h" 
#include "WindowMgr.h" 
#include "MenuMgr.h" 
#include "TextEdit.h" 
#include "DialogMgr.h"” 
#include "EventMgr.h" 
#include "DeskMgr.h" 
#include "FileMgr.h" 
fanclude "ToolboxUtil.h” 
#include "ControlMgr.h" 
#include "stdio.h" 
#include "LightSpeed Disk:Thesis C f:StdLib.h" 
#include "MacOrbits.h" 
femeciude “MacOrbits.proto.h” 
Preferences prefer; /* preferences for how things look 
WindowPtr myWindow;/* the current window of interest 
WindowPtr mapWindow = NIL; 
/* the window that draws world map 
Rect Gragkect»—o1 0,0; 1024, 1024 }; 
MenuHandle myMenus [specialM + 1]; 
sursor watch; 
BitMap map bm; /* where the original map is drawn 
BitMap globePics [MAXGLOBES]; 
BErZ2595 theFileName; 


23 


Be/ 
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ad 


Static! Mit theVRefNum; 
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MO ResumeProc : allows user to “bail-out” to Finder if program bomoee 
Kk kk kk kk ke ok kk ok ke ke ke ek oe ke ok ok ee eke ke kek ok ke ke kk kk kk kok kok kk ok ok ok ok ok ke ok ok ke ok ok kk kk ke ok ke ok ke ok x / 


pascal void 


MO ResumeProc () 


{ 


ExiatToshell (); 


/* KKKK KKK KKKKK KKK KK KK MO ResumeProc HKKKRKEEKKKKKKKKKKRKKEKEKK 2 x / 


[O&K KK eI I kk I eR IRI ek Ik ee ee ek ke eke eke ee ee ee 


ay 
a 
ue 


Main : entry point for this application 

Ke K KKK KKK KKK kK KKK KKK RK KR KR KK RK KKK KK RK KKK KK KKK KK KK KKK KKK KKK KK KKK KKK KK wy 
main () 
{ 

InitGraf (&thePort) ; /* start up QuickDrayw 

inteeonts (), fox ... the Font Managaer 

TextFont (systemFont) ; /* make the font ->Chicago 

TextSize (9) ; /* in 9 point size 


FlushEvents( everyEvent, 0 ); 
/* clear the Event Queue 


InitWindows (); /* start up the Window Manager 
InitMenus (); jon the Menu Manager 
TEENIE) fax Text Haake 
InitDialogs (MO ResumeProc) ; 

re the Dialog Manager 
ImitEeeCursor():- /* reset the cursor to the arrow 
MoreMasters(); /* Create a couple extra blocks 
MoreMasters(); /* of Master Pointers 


MoreMasters(); 
MoreMasters(); 


MaxApp1Zone(); /* create the application heap 
MO SetUpCursors (); /* define all cursors used by prog 
MO SetUpMenus(); /* create the program's menu bar 


MO_Init Preferences (&prefer) ; 
/* set up default session values 
MO_Init_Globes();/* load the globe pictures into mem 


Gil sdf lt 0); /* Initialize the StdLibrary 


while ( MO MainEvent() ) 
{ 


/* everything done in MainEvent 


} 


si 


ai 
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/* KKK KKK KKK KKK KKK KKK KK Main KK KKK KKK KKK KKK KEK KKK KKK KKK KKK KK KK x / 
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MO MainEvent : polls main event loop 
KEKEKKKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK ny 


ent 


MO MainEvent () 


{ 


EventRecord myEvent; 

WindowPtr whichWindow; 

Rect Lr; 

Boolean saveprefer; 

char chCode; /* Character code from evt msg *« / 
MO MaintainMenus() ; /* Check if disable/enable any menu x / 


fe (prefer .plotting) 
MenMaintaine lot () 7 
SystemTask (); /* Give Time to DA's x / 


if (GetNextEvent (everyEvent, &myEvent) ) 
{ 
Switch (myEvent.what) 
{ 
case mouseDown: 
Switch (FindWindow( myEvent.where, &whichWindow )) 
{ 
case inDesk: 
SysBeep (3) ; 
break; 
case inGoAway: 
if (MO_ours (whichWindow) ) 
if (TrackGoAway( whichWindow, myEvent.where) ) 
MO_HideWindow (whichWindow) ; 
break; 
case inMenuBar: 
MO MenuClick( MenuSelect (myEvent.where) ); 
break; 
case inSysWindow: 
SystemClick( &myEvent, whichWindow ) ; 
break; 
case inDrag: 
if (MO_ours (whichWindow) ) 
DragWindow( whichWindow, myEvent.where, &dragRect ); 
break; 
case inGrow: 
if (MO_ours (whichWindow) ) 
MO GrowWindow( whichWindow, myEvent.where ) ; 
break; 
case inContent: 
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if (whichWindow == mapWindow) 
; /* Do Nothing 
else if (MO_ours (whichWindow) ) 
{ 
if (whichWindow !'!= FrontWindow () ) 
SelectWindow (whichWindow) ; 
else 
: /* skipit-no valid mousedowns inContent 
} 
break; 
default: 
} /* end switch FindWindow 
break; 
case keyDown: 
case autoKey: 
chCode = myEvent.message & charCodeMask; 


if ((myEvent.modifiers & cmdKey) != 0) 
MO MenuClick( MenuKey(chCode) ); 
else 
{ /* no response for non command key evt 
} 
break; 
case activateEvt: 
if ( ((WindowPtr) myEvent.message) == mapWindow) 


; /* Do Nothing 
else if ( MO ours ((WindowPtr)myEvent.message) ) 
{ 
SetPort ( (WindowPtr)myEvent.message) ; 
DrawGrowIcon( ((WindowPtr)myEvent .message) ) ; 
if ( myEvent.modifiers & activeFlag ) 
{ /* window is becoming active 
/* Save plotting preferences 
saveprefer = prefer.plotting; 
prefer.plotting = FALSE; 
MO UpdateWindow ( (WindowPtr)myEvent .message) ; 
prefer.plotting = saveprefer; 
/* And restore prefernces afterwards 


else 
{ /* window is becoming deactive 


} 
prefer.changes = TRUE; 
break; 
case updateEvt: 
if (MO_ours( (WindowPtr)myEvent .message) ) 
{ 
saveprefer = prefer.plotting; 
prefer.plotting = FALSE; 
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MO UpdateWindow( (WindowPtr)myEvent .message) ; 
prefer.plotting = saveprefer; 


} 


else if ( ((WindowPtr) myEvent.message) == mapWindow) 
MO DrawMap (map_bm, mapWindow) ; 
break; 
aeoraul Gis; 
} /* end of case myEvent.what * / 
} /* end if x / 


Meturn (TRUE) ; 


/* KKRKKKKKKKKKKK KKK KKK KK MO MainEvent nee RRR KK EKER KERR EK EK KKK KK RK X * / 


Perk RAK K KKK AKA KKKRKKRKKKKKAKRKKEKKKKKKKEKKEKKKKRKKKKKEKKKKKKEKKEKKKEK KK KE 


MO SetUpMenus :loads menu resources and sets up DA's under Apple menu 
KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KEK KKK KK KKK KKK KK KEK x / 


void 


MO SetUpMenus () 


{ 


int 


ay 


myMenus [appleM] = GetMenu(appleID) ; 
AddResMenu( myMenus[appleM], 'DRVR' ); 


for (i=fileID; i<=(appleID+specialM); i=1i+1) 
myMenus [i-appleID] = GetMenu(i); 


for ( (i=appleM); (1i<=specialM); i=i+tl ) 
InsertMenu(myMenus[i], 0) ; 


DrawMenuBar(); 
7 his KKK KKK KK KKK KK KKK KK KK MO SetUpMenus KKK KKK KKK KKK KKK KKK KKK KK KKK * 


[| KK Rk kK ka kk Rk RR KR kk KO kk 


MO MenuClick :processes the menu item or command key equiv. 
KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KKK KK KK KKK KK KK KKK KKK KKK KKK KKK KK KKK K x / 


void 
MO MenuClick( mResult ) 

long mResult; 
{ 
ant theItem; 
SerZ255 DAname ; 
WindowPeek wPtr; 


theItem = LoWord( mResult ); 
Switch (HiWord(mResult)) /* the Menu number x / 
{ 


IWF} 


case appleID: 


blag 


(theItem == 1) /* the about item x / 


MO About (); 


else 


{ 


} 


break; 


GetItem(myMenus [(appleM], theItem, &DAname) ; 
prefer.changes = TRUE; 

/* Flag potential changes to menu 2 
OpenDeskAcc( &DAname ); 


case fileID: /* set filename to top orbit window x / 


break; 


MO _File(theitem, (char *)theritelame: 
&theVRefNum, FrontwWindow()); 


case editID: 


LE 


{ 


} 


(SystenmEdit (theItem-1) == Q) 


wPtr = (WindowPeek) FrontWindow() ; 
Switch (theItem) 

{ 

case cutCommand: 
break; 

case copyCommand: 
break; 

case pasteCommand: 
break; 

case clearCommand: 
break; 

detault :-; 

} 


break; 
case orbitsID: 
MO OrbitsMenu(theItem, FrontWindow()); 
break; 
case Plot LD ==: 
MO PictMenu (Eheltem, 
break; 
case windID: 
MO _WindowMenu (theItem) ; 
break; 
case speciallID: 
MO_SpecialMenu (theItem) ; 
break; 


} 


HiliteMenu (0); 
/* + i> a> ded a> dy ah at ab ae a> a> de ae ab ae a> db ae ded MO MenuClick KKK KEK KEKE KEK KKK KKK EEK IKK x / 
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MO About : displays author and source statement 
KKK KKK KKH KKK KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 
veo)siKel 

MO_ About () 


{ 


BPlexrt( AboutAlertID, OL ); 


/* KIKKKKKKKKKKKKK KKK KK MO About KKK KK KKK KKK KK KKK KEKE KKK KEK KKK KK KK * / 


[ RR KKK KKK RK KK RR KK RK KK KK I KO ee eK ek kk Kk OK KR kk 


MO MaintainMenus : enables/disables menu items based on program state 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KKKKKKK KKK K KKK KKK x / 


OL 


MO MaintainMenus() 


{ 


WindowPeek theWindow; 
Sept info rilagl OpLiGeu en alons 
if (! (prefer.changes) ) /* No changes ... leave x 
eter Ei, 
prefer.changes = FALSE; /* we are making the changes now x / 
PX xxxxKKkKxxxkkX*k Handle check items in menu bar here first oy) 
if (prefer.showmap) /* item 2 of Worldmenu is show/hide uf 


{ 
CheckItem(myMenus [windowM], 1, TRUE); 


MO CreateMap(&map_ bm, &mapWindow) ; 
} 


else 


{ 
CheckItem(myMenus {windowM], 1, FALSE); 
MO DeleteMap(&map_bm, &mapWindow) ; 


if (prefer.showaxes) /* item 2 of Worldmenu is show/hide AY 


{ 
CheckItem(myMenus[specialM], 4, TRUE); 


} 


else 


{ 
CheckItem(myMenus{specialM], 4, FALSE); 


theWindow = (WindowPeek) FrontWindow(); 
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ab 
{ 


/* I£f it 18 an OCEbit wince. x / 
(MO_ours( (WindowPtr) theWindow )) 

/* clear all old checkmarks ay 
CheckItem(myMenus[orbitM], 1, FALSE); 
CheckItem(myMenus [orbitM], 2, FALSE); 
CheckItem(myMenus [orbitM], 4, FALSE); 
CheckItem(myMenus[orbitM]}, 5, FALSE); 
CheckItem(myMenus [orbitM], 6, FALSE); 


orbitinfo = (OrbitiInfo *) (theWindew—-=rerecm.. 

if ( @rbitinto--textonly) 
CheckItem(myMenus[orbitM], 1, TRUE); 

else 
CheckItem(myMenus [orbitM], 2, TRUE) ; 

if ( orbitinfo->coordinates == IJK COORDS ) 
CheckItem(myMenus [orbitM], 4, TRUE); 

else if ( orbitinfo->coordinates == POW COORDS ) 
CheckItem(myMenus[orbitM], 5, TRUE); 

else if ( orbitinfo->coordinates == GEO COORDS ) 
CheckItem(myMenus [orbitM], 6, TRUE); 


/x *x*xx Handle disabling menus due to lack of any orbit windows here */ 
/* xkxk* [Initially enable all menu items that the program supports... */ 

EnableItem( myMenus[fileM], fmNew ); 

EnableItem( mvMenus[fileM], fmOpen ); 

EnableItem( myMenus[fileM], fmClose ); 

EnableItem( myMenus[fileM], fmSave ); 

EnableItem( myMenus[fileM], fmSaveAs ); 

EnableItem( myMenus[(fileM], fmRevert ); 

EnableItem( myMenus[fileM], fmPrint ); 


DisableItem( myMenus[editM], undoCommand ); 
DisableItem( myMenus[editM], cutCommand ); 
DisableItem( myMenus[editM], copyCommand ); 
DisableItem( myMenus[editM], pasteCommand ); 
DisableItem( myMenus[editM], clearCommand ); 


alts 
{ 


alg 
{ 


( !MO_AvailWind() ) /x There is no room to create A 
ks another orbit record a 

DisableItem ( myMenus[fileM], fmNew ); 

DisableItem ( myMenus[fileM], fmOpen ); 


( !'MO_ours( FrontWindow() )) 

/* no open orbit window so must be a DA x / 
DisableItem( myMenus[fileM], fmClose ); 
DisableItem( myMenus[fileM], fmSave ); 
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DisableItem( myMenus[fileM], fmSaveAs ); 
DisableItem( myMenus[fileM], fmRevert ); 
DisableItem( myMenus[fileM], fmPrint ); 
EnableItem( myMenus[editM], undoCommand ); 
EnableItem( myMenus[editM], cutCommand ); 
EnableItem( myMenus[editM], copyCommand ); 
EnableItem( myMenus[editM], pasteCommand ) ; 
EnableItem( myMenus [editM], clearCommand ); 
} 
else if ( MO isDirty(FrontWindow()) ) 
{ 
if (MO_isNewFile(FrontWindow()) ) 
{ /* source of the orbit is a file x f 
EnableItem( myMenus[{fileM], fmSave ); 
EnableItem( myMenus[fileM], fmRevert ); 
} 
else /* source of orbit is NEW menu item x / 
{ 
DisableItem( myMenus[fileM], fmSave ); 
DisableItem( myMenus[fileM], fmRevert ); 


} 


else /* saved unchanges source file x / 


{ 
DisableItem( myMenus[fileM], fmRevert ); 
DisableItem( myMenus[fileM], fmSave ); 


if ((!MO_ours( FrontWindow())) && (prefer.bar state == ON)) 

{ /* there is no open orbit window */ 
meefter.bar state = OFF; eeTuen Off Ene Orbit menu a) 
DisableItem( myMenus[orbitM], 0); 

/* 0 is the ENTIRE menu disable ae 
DrawMenuBar();/* redraw menu bar x] 

} 

else if ((MO_ours( FrontWindow())) && (prefer.bar_ state == OFF) ) 

{ /* there is atleast one open window x / 
Ppeerer.bar state = ON; /* Turn on the Orbit menu as 
EnableItem( myMenus[orbitM], 0); 

/* 0 is the ENTIRE menu enable af 
DrawMenuBar();/* redraw menu bar x) 

} 

if (prefer.plotting == TRUE) 

{ /* show plot choice via checkmark 2) 


DisableItem( myMenus[plotM], plONE ); 
DisableItem( myMenus[plotM], plCONT ); 
EnableItem( myMenus[plotM], p1STOP ); 
CheckIitem(myMenus [plotM], prefer.plot_duration, TRUE) ; 


131 


} 
else 
{ 

if (prefer.time == 0) 

{ /* No plotting is already in progress ai/ 
SetItem(myMenus[plotM], plONE, “\pTimedsPlor.. 
SetItem(myMenus[plotM], plCONT, "\pStart Continuous Plot"); 

} 

else 

{ /* This plot is already in progress acy? 
SetItem(myMenus[plotM], plONE, "\pResume Timed Plot..."); 
SetItem(myMenus[plotM], pl1lCONT, "\pResume Continuous Plot"); 

} 

EnableItem( myMenus[plotM], plONE ); 

EnableItem( myMenus[plotM], plCONT ); 

DisableItem( myMenus[plotM], pl1lSTOP ); 

CheckItem(myMenus [plotM], prefer.plot duration, FALSE); 


} /* KEKE KKKKKKKKKKKKKKKK MO MaintainMenus KEK K KKK KKKEK KKK KK KKKK * / 


[RK KK KKKKKKKKEKKKKK KKK KKKKKKKKKKKKKKKKK KK KK KKK KKK KK KKK KKK KKK KKK KK KK KK 


MO SetUpCursors : get handle to all cursors usedinm preg can 
KEK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK RHEE KKK KKK KK KKK x 
vole 

MO SetUpCursors () 

{ 


CursHandle theCurs; 


theCurs = GetCursor(watchCursor) ; 


watch = **theCurs; 
} /* > i> a> a> a> db db a> a> ab a> a> ab ab ab ab ab a> a> ab ab ab 4 MO SetUpCursors > i> i> i> db db a> db a> db db db a> a> a> db db db a> dy dy ay ab ab ab. 4 x / 


[RRR KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KKEKKKKEKKKKEKKKKKKKKKKKKKKKKKK 


MO_Init_Preferences : set up default session values 
KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KEKKKKKEKK x / 
void 

MO Init Preferences( prefer ) 
Preferences *prefer; 

{ 
prefer->changes = TRUE; /* Initial drawing of menu items ey 
prefer->bar_ state = ON; /* Orbit item in menu Dar 1S on <7 
prefer->showmap = FALSE; /* display the map x 
prefer->std_units = 0; /* metrict()> caaeit-a a ee 
prefer->time comp = 100.0;/* time compression factor (100:1) x7 
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prefer->time = OL; /* 0 seconds of wall clock time 

prefer->plotting = FALSE;/* not currently computing orbits 
mecter—--plot duration = 0; 
prefer->draw method = 0; /* plot (0)dots (1)lines (2)both 


prefer->first plot = TRUE;/* first time into current plot seq 


prefer->draw_incr = 10.0;/* increment plot every 10 minutes 
prefer->showaxes = TRUE; /* show axes when plotting 
Deeter->obs lat = 0.0; /* latitude of observer 
mBeefer=->obs ton = 0.0; /* longitude of observer 


/* arbitrarily defined 


a | 
mf 
=f 
ih 
ao) 
| 
a, 
aH 
ows 


/* KEK KK KEKE KE KKK K KEK KKK MO Init Preferences KREEKRREKKEKKRKKKKKEKKKEKKKK x / 


[RRR KKK KKK KKK KKK KKK RK KKK KKK KK KKK KK KK KK KK KKK KKK KKK KR KK KR KR KK KR KK KK RK KK KK 


MO Init Globes : load globe pictures into memory 


KEKE K KEK KK KKK KEK KKK KEK KKK KKK KKK KKK KE KKK KEKE KEK KEKE KEK KEK KK KEK KEKE KKK KEKE KEK KKK KEKE KKK x / 


fonke| 


Memenit Globes () 


{ 


PicHandle globeHand; 

Rect tempRect; 

nt bmsize, i; 

ierarPtr tempPort, savePort; 
MO Wait(); /* tell user it will take a while 
GetPort (&savePort) ; /* save existing grafport 
tempPort = (GrafPtr) NewPtr(sizeof(GrafPort) ); 
OpenPort (tempPort) ; /* does set for special grafport 


for (1=0; i<MAXGLOBES ; i=1i+1) 
{ 
globeHand = GetPicture (GlobeID+i) ; 
/* Get each picture item 
tempRect = (**globeHand) .picFrame; 
ClipRect (&tempRect); /* avoid bug from Apple TN #59 
PortSize (tempRect.right-tempRect.left, 
tempRect .bottom-tempRect .top) ; 


bmsize = 1 + (tempRect.right-tempRect.left) / 8; 


if ((bmsize % 2) != Q) 
bmsize = bmsizetl; /* an even number of bytes 
globePics[i].rowBytes = bmsize; 


bmsize = bmsize * (tempRect.bottom-tempRect.top) ; 
globePics[i].baseAddr = NewPtr(bmsize) ; 
globePics[i].bounds = tempRect; 

SetPortBits( &(globePics[i]) ); 


EraseRect (&tempRect); /* clear the new bitmap and draw 
DrawPicture(globeHand, &tempRect ); 
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EL 


aa 


a 


Bas 


a, 


i 


a 


/* restore old g¥aftpoeEs - 


Set Port (saverore 
/* don't leave the port around... 


ClosePort (tempPort) ; 





InzteCurseono. /* reset the cursor 


/* KKEKKKKKEKKEK KKK KKK KKK KK MO ielske Globes KEKE K KKK KKK KKK KKEKKEKK 
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eae RK KAA KKK KR AXKKAKALARA KK KKK KK KRRAARAR EK 


FILENAME weMac@moits .fm.c 
DESCRIPTION >: file manager interface for MacOrbits.c 
ENVIRONMENT >: Macintosh SE 1Mb 

LightSpeed™ C v2.15 
AUTHOR >: Captain Kenneth L. BEUTEL USMC 

(some portions copyright THINK TECHNOLOGIES™) 
ADVISORS : Prof. Dan Davis 


Prot 7 wan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS seConeains. Mac specific file system 
ImsStruct ions 

VERSION > 029 (3/6788) 

CHANGES >: 3/6/88 Formatted for MacWrite conversion 


KKK KKK KKK KKK KKK KKK KEK KKK KKK KKK KEK KEK KKK KKK KKK KK KKK KEK KKK KKK KKK KK KKK KK * / 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 


#include 
#include 


extern 
extern 


TOurekDraw. hh" 
"MacTypes.h" 
Hicroppl i nilo peg elt 
"WindowMgr.h" 
"MenuMgr.h" 
Erextkaie .h” 
"DialogMgr.h" 
"EventMgr.h” 
"DeskMgr.h" 
bealemMor.h" 
mrooglboxUtil.h" 
Econ: rolMer .h” 
"StdFilePkg.h" 
stato .h* 


"LightSpeed Disk:Thesis C f:StdLib.h" 


PMacOrbits.h" 
EMacorbits .proto.h” 


Preferences prefer; /* preferences for how things look * / 
MenuHandle myMenus[specialM + 1]; 


[O&K KK KK KI I I KK I IK III I Kk kk kk kk kk 


MO File : handles all File menu generated events 
KKKKK KKK KKK KKK KEK KKK KK KKK KEK KKK KK KEK KKK KKK KK KKK KKK KK KR KR KR Rk kk KK * / 


ant 


MO File( item, theFileName, theVRefNum, myWindow) 


ale 
char 
hale 


item; 
x*theFileName; 
*theVRefNum; 


5 


WindowPtr 
{ 
15 gWe 
Sticoe 
StrZos 
St rZoo 
WindowPtr 
eb oye 


switch (item) 

{ 

case fmNew: 
oldWindow 


myWindow; 


vRef, refNum, resultCode; 


Ene /* text file name x / 
windName;/* name of topmost window x / 
appname;/* application to transfer to * / 
oldWindow;/* saves last window pointed to * / 
slotnum; 

myWindow; 


MO CreateWindow(&myWindow, &slotnum) ; 
if (myWindow != NIL) 


{ 


MO fmNew( &myWindow, slotnum ); 
MO SetDirty(myWindow, TRUE) ; 


} 


else 


{ 


MO Generic("\pSorry, max windows already open.","\p"); 


myWindow 


} 
break; 
case f£mOpen: 


= oldWindow; 


if (MO_OldFile( &fn, &vRef )) 
if (!MO DuplicWind (fn) ) 
if (FSOpen( &fn, vRef, &refNum) ==noErr) 


{ 


MO CreateWindow(&myWindow, &slotnum) ; 


et 


{ 


} 


(myWindow != NIL) 


if (MO ReadFile( refNum, myWindow) ==noErr) 
{ 
*theVRefNum = vRef; 
MO pStrCopy(fn, theFileName) ; 
SetWTitle(myWindow, theFileName) ; 


SetItem(myMenus [windowM], slotnum + 5, theFileName) ; 
EnableItem(myMenus [windowM], slotnum + 5); 
ShowWindow( myWindow ); 


else 


{ 


MO Generic("\pSorry, max windows already open.", 
tt ioe 1 oer wan ous.) ; 


myWindow = oldWindow; 
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FSClose(refNum) ; 
} 
else 
MO Generic( "\pError opening ", fn ); 
break; 
case fmClose: 
if (MO_isDirty (myWindow) ) 
{ 
GetWTitle(myWindow, &windName) ; 
Switch (MO_Advise (&windName) ) 
{ 
case dlgSave: 
if (MO_isNewFile(myWindow) ) 
{ /* No filename so it is a new window x / 
GetWTitle(myWindow, &fn); 
if (!MO SaveAs(&fn, &vRef, myWindow) ) 
return (FALSE) ; 
} 
else if (!MO SaveFile( theFileName, *theVRefNum, myWindow ) ) 
return (FALSE) ; 
MO_RemoveWindow (&myWindow) ; 


/* Only remove window for saved file a, 
break; 


case dlgCancel: 
return (FALSE) ; 
case dlgDiscard: 
MO RemoveWindow (&myWindow) ; 
break; 
} 
} 
else 
{ 
MO_RemoveWindow (&myWindow) ; 
} 


break; 
case fmSave: 
if (!MO_isNewFile (myWindow) ) 
MO SaveFile(theFileName, *theVRefNum, myWindow) ; 


else JV=—Noterrom an old file x / 
{ 


GetWTitle(myWindow, é&fn); 
1f (MO SaveAs( &fn, &vRef, myWindow )) 
*theVRefNum = vRef; 
} 
break; 
case fmSaveAs: 
GetWTitle(myWindow, &fn); 
if (MO SaveAs( &fn, &vRef, myWindow )) 
xtheVRefNum = vRef; 
break; 
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case fmRevert: 
if ((!MO_isNewFile(myWindow) ) 
&& (FSOpen( &theFileName, *theVRefNum, &refNum) == noErr) ) 
{ 
MO_SetDirty(myWindow, !MO ReadFile( refNum, myWindow) ); 
FSClose (refNum) ; 
} 
ShowWindow( myWindow ); 
MO UpdateWindow( myWindow ); 
break; 
case fmPageSetUp: 
MO PageSetUp(); 
break; 
case fmPrint: 
MO PrintOrbitText (myWindow) ; 


break; 
case fmXFER: ‘x get names of all open windows x / 
while (MO FirstWindow({) != NIL) 
{ /* recursive call to close files sy 
SelectWindow (MO _FirstWindow()); 
MO _File(fmClose, theFileName, &*theVRefNum, MO FirstWindow() ); 
} 
ripe (MO_FirstWindow () == NIL) 
if ( MO OldApps( &appname, &vRef) ) 
{ 
SetVol("\p", vRef); 
/* make appl. volume the curr. one id 
Launch(QL, appname) ; 
/* and launch the app Be 
} 
break; 
case fmQuit: /* get filenames of all open windows */ 
while (MO_FirstWindow () '= NIL) 
{ /* recursive call to close files +7, 
SelectWindow (MO FirstWindow()); 
MO File(fmClose, theFileName, &*theVRefNum, MO FirstWindow() ); 
} 
1f (MO _FirstWindow() == NIL) 
Exit ToShel i ()e. 
break; 


} 


return (TRUE) ; 


/* KA KK KKK KKK KKK KKK KK KKK MO File KaAKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK x / 


| RR KO KK IK IOI OO kk kkk kok kk kk Kk KR KK KKK 


MO SaveAs : handles save as for topmost window 
Kae Ka KKK KEK KKK KKK KEKE KEK KKK KKK IKK KKK KEKE KKK KKK KKK KEK KKK KKK KKK KKK KKKKKEKK x / 


138 


enc 


MO_SaveAs( name, vRefnum, myWindow ) 


SierZ255 *name ; 
nt *vyRefnum; 
WindowPtr myWindow; 
{ 
Seoitinfo Heil oal ec ALeuee wy 
aerate refNum; 
orbitinfo = (OrbitInfo *) (( (WindowPeek) (myWindow) )->refCon) ; 


if (MO NewFile(&*name, &*vRefnum) ) 
if (MO CreateFile(&*name, &*vRefnum, &refNum) ) 
{ 
MO pStrCopy(*name, orbitinfo->orbitdata.name) ; 
SetWTitle(myWindow, orbitinfo->orbitdata.name) ; 
SetItem(myMenus [windowM], 
(orbitinfo->slotnum) + 5, orbitinfo->orbitdata.name) ; 


MO WriteFile( refNum, myWindow ); 
FSClose( refNum ); 
MO SetDirty (myWindow, FALSE); 
return (TRUE) ; 
} 
else 
{ 
MO Generic("\pError creating file ", name) ; 
return(FALSE); 


/* RRR KKK KKK KEK KK KKK KKEEKESE MO SaveAs KEKE KKK KKK KKK KKK KKK KKK KKK KKK x / 


[ ® KK RK KK KK KKK KK IK KK KK IK IK KKK KO IKK IK FO IKK kk 


MO _SaveFile : handles save of topmost window 


KKK KKK KEK KKK KKK KKK KEK KEK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK x / 


Pernt 
MO SaveFile( name, vRefNum, myWindow ) 
char *name; 
erat: vRefNum; 
WindowPtr myWindow; 
{ 
int refNum; 
if (FSOpen( &*name, vRefNum, &refNum )==noErr) 


{ 
MO WriteFile( refNum, myWindow ); 
MO SetDirty(myWindow, FALSE) ; 
FSClose( refNum ); 
return (TRUE) ; 


tas 


} 


else 


{ 


MO Generic("\pError opening file ", name); 
return (FALSE) ; 
} 


/* Ka aRK KAKA KK KKK A KA KARR RK MO Saver ile KKK KKK KKK KK KKK KKK KKK KK KKK x / 


[RRR KKK KK KKK KKK KKK KR KR KK KKK RR RK RRR RK KK RK RK RK Rk kK kK kk 


MO Advise : std Save,Discard,Cancel choices in a diatoguce.. 
wwe KKK KKK KKK KKK KKK RK KKK KK KKK KR KKK KKK KKK KK KKK KKK KKK KKK KKK KE KKK * / 


aly gue 


MO Advise( filename ) 


Str255 *filename; 


ParamText (*filename, "\p", "\p", "\p"); 
return( CautionAlert(DirtyFileID, OL) ); 


} /* KRaKKKAKKAR KK AK AKA KARR KEK MO Advise Kam KKK KKK KKK KK KKK KR KKK KKK KKK KKK x / 


[III III III III IO III III IOI III IO IOI IO Ok 


MO NewFile : gets name and volume information for new document 
wwe K RRR KKK KKK KKK KKK KKK IKK KR KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK * / 


THe 
MO NewFile( name, vRefnum ) 
SErZS5 *name; 
rie *yvyRefnum; 
{ 
Static Point SFPwhere = { 106, 104 }; 
Static SFReply MO_ reply; 


SFPutFile(SFPwhere, "\p", name, OL, &MO_reply); 
if (MO_reply.good) 
{ 
MO pStrCopy (MO_reply.fName, &*name) ; 
*vRefnum = MO reply.vRefNum; 
return (TRUE) ; 
} 
else 
return (FALSE) ; 


/* tek kk kk kk kok kk kok kkk MO NewFile wow KKK KKK KK KK KKK KK KKK KKK cay / 


[OOO IOI III III III III IO IOI Ie 


MO OldFile : gets name and volume information for existing document 
kaka KKK KKK mK KOK Ow KR Om mm KKK KK KKK KKK KKK KKK KA KKK KE KKK * / 


140 


grit 
MO_OldFile( name, vRefnum ) 


SerEZ 55 *name; 
ant *yRefnum; 
{ 
SFTypeList myTypes; 
static SFReply MO_reply; 


Static Point SFGwhere = { 90, 82 }; 


myTypes [0]='ORBT'; 


SFGetFile( SFGwhere, "\p", OL, 1, myTypes, &MO reply ); 
mee (MO reply.good) 
{ 
MO pStrCopy( MO reply.fName, name ); 
*vRefnum = MO reply.vRefNum; 
return (TRUE) ; 
} 
else 
return (FALSE) ; 
} /* KEK KKEKK KKK KKK KEKKKK KK MO OldFile KEKE KK KK KEKE KEKE KK KKK KEKE KK KKK KKEEK * / 


[KKK KKK KKK KR KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KK KK KKK KK KK KK 


MO_OldApps 


gets name and volume information for existing application 


KREKEKKKEKEKKE KKK KEKE KK KKK KKK KEKE KKK KKK KKK KKK KK KKK KKK KKK KEKE KEKE KKK KKK KK KKEKEKK * / 


at 
MO OldApps( name, vRefnum ) 
StrZ255 *name; 
int *vyRefnum; 
{ 
SFTypeList myTypes; 
static SFReply MO_reply; 


static Point SFGwhere = { 90, 82 }; 
myTypes [(0]='APPL'; 
SFGetFile( SFGwhere, "\p", OL, 1, myTypes, 
if (MO reply.good) 
{ 
MO pStrCopy( MO reply.fName, name ); 
evketnum = MO reply. vRefNum; 
Beturn (TRUE) ; 
} 
else 
return (FALSE) ; 


&MO_ reply ); 


} /* RKEKEKKEKKKKEKKEKKKEKKKKKEKK MO OldApps KEKE KEKKK KKK KK KEKE KKEKEKEKEKKKEKK KKK HK x / 


[RRR KKK KKK KKK RK KR KKK KKK KKK KKK KKK KKK KKK KEK KKK KK KKK KKK OK KR KK KK KK RK Kk 
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MO _CreateFile 


handles creation of a newer 


KKK KEKE KK KKK KKK KKK KKK KKK KKK KKK KKK KEKE K KKK KKK KKK KKK KKK KKK KKK KEK KK KEK KKK * / 


aloe 
MO CreateFile( name, vRefnum, theRef ) 
Stoo *name; 
arte *vyRefnum; 
arate *theRef; 
{ 
int resultCode; /* i/o result code x / 


resultCode=Create (name, *vRefnum, '??7??', 'ORBT'); 
if ((resultCode==noErr) || (resultCode==dupFNErr) ) 
resultCode = FSOpen( name, *vRefnum, theRef ); 


return( (resultCode==noErr) ||] (resultCode=dupFNErr) ); 
} /* KEKE KEK KKK KEK KEKE KKK KEK KKK MO Createrirle KKK KKK KK KKK KEK KEKE KKK KKK KKK HK * / 


[RKRKK KKK KKK KK KK KKK KK KKK KR KKK KK KKK KK KK KK KK RK KK KK KKK KK KKK KKK KKK 


MO WriteFile : handles writing data into a file 
KEK KKK KEKE KKK KEK KEK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 


ae 
MO WriteFile( refNum, myWindow ) 
amit refNum; 
WindowPtr myWindow; 
{ 
long num; 
char buffter(s0)], temo[(s0); 
OFD2e Info onal eniical gh ae 
aS once resultCode;/* input output return code x7 


orbitinfo = (OrbitInfo *) (( (WindowPeek) (myWindow) )->refCon) ; 


MO pStrCopy (gl_gorbn (orbitinto-sorbitdata) ye emp) 
PtoCstr(&temp) ; 

sprintf(buffer, "%Ss\n", temp ); 

num = strlen(buffer); 

resultCode = FSWrite( refNum, &num, buffer ); 


sprintf (buffer, "Semi-major: %G\n", gl_gorba(orbitinfo->orbitdae ae 
num = strlen(buffer); 
resultCode = FSWrite( refNum, &num, buffer ); 


sprintf (buffer, “Eccentricity: %G\n", gl gorbe (orbitinf£o->0rb1taae eee 
num = strlen(buffer); 


resultCode = FSWrite( refNum, &num, buffer ); 


sprintf (buffer, “Inclimation-ysG 
cv_gangd(gl_gorbi (orbitinte--erbitdata ym 
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num = strlen (buffer); 


resultCode 


eecantt (buffer, 


FSWrite( refNum, &num, buffer ); 


"Mean Anomaly: %*G\n", 
cv_gangd(gl_gorbm(orbitinfo->orbitdata)) ); 


num = strlen(buffer); 


resultCode 


eerantt (buffer, 


FSWrite( refNum, &num, buffer ); 


"Arg of Peri: %G\n", 
cv_gangd(gl_gorbp (orbitinfo->orbitdata) ) 


num = strlen(buffer); 


resultCode 


Speantft (buffer, 


FSWrite( refNum, &num, buffer ); 


"Long of ASN: %G\n", 
evugangedigl gorbl{(orbieanto--erb1tdata) } 


num = strlen(buffer); 


resultCode 


sprintf (buffer, 


FSWrite( refNum, &num, buffer ); 


TEpOGh= sccm ng) gorpt (Orbitinto->orbitdata} 


num = strlen(buffer); 


resultCode 


sprintf (buffer, 


FSWrite( refNum, &num, buffer ); 


"Julian Date: G\n", (orbitinfo->orbitdata) .date ); 


num = strlen(buffer) ; 


resultCode 


FSWrite( refNum, é&num, buffer ); 


} /* KRKKKKEKR KEKE KKK KEKKKKEEEK MO WriteFile KEK KKK KKK KKK KKK KEKE KK KKK KKK KK x / 


[RK KKK KKK KR RK KK KKK KK KK KK RK KK KK OK OKO IOI IKI kK 


MO ReadFile 


handles reading data from a file 


KRKEKEKKEKKEKEK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KKK KKK KKK KKK KKKEKKK x / 


int 
MO ReadFile( refNum, myWindow) 
int refNum; 
WindowPtr myWindow; 
{ 
ear butter [sO]: 
char orbname [80]; 
int resultCode; 
Real e, date; 
Dist a; 
Angle i, mean, peri, long_asn; 
Time time; 
char temp [30]; 
feet info AOrbiteinto; 
resultCode MO ReadLine( buffer, refNum); 
if (resultCode==noErr) /* get orbit name 


sscanf (buffer, 


"ss", orbname) ; 
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eae 


resultCode = MO ReadLine( buffer, refNum) ; 
if (resultCode==noErr) /* get orbit semimajor axis x/ 
sscanf (buffer, "%*s %1G", &a); 


resultCode = MO ReadLine( buffer, refNum) ; 
if (resultCode==noErr) /* get orbit eccentricity x7 
sscanf (buffer, "%3*s 1G", &e); 


resultCode = MO ReadLine( buffer, refNum) ; 
1f (resultCode==noErr) /* get orbit incianacwon x / 
sscanf (buffer, "t*s tic’) <2)- 


resultCode = MO ReadLine( buffer, refNum); 
if (resultCode==noErr) /* get orbit mean anomaly * / 
sscanf (buffer, "%*s %*s 1G", &mean); 


resultCode = MO ReadLine( buffer, refNum) ; 
if (resultCode==noErr) /* get orbit argument of perigee x / 
sscanf (buffer, "“%*s @*s %*5 9 s1G") Sper. 


resultCode = MO ReadLine( buffer, refNum) ; 
if (resultCode==noErr) /* get orbit longitude of ASN x / 
sscanf (butter, "%*s %*s %*s 216", s&longeacm es, 


resultCode = MO ReadLine( buffer, refNum); 
if (resultCode==noErr) /* get orbit epoch time a 
sscanf (buffer, "%*s %41G", &time); 


resultCode = MO ReadLine( buffer, refNum) ; 
if (resultCode==noErr) /* get orbit epoch date ig 
sscanf (buffer, "%*s %*s 1G", &date); 


if (resultCode==noErr) 
{ 
orbitinfo = (OrbitInfo *) (( (WindowPeek) (myWindow) ) ->refCon) ; 
gl_sorbt (orbname, a, e, cv_sangd(i), cv_sangd(mean), cv_sangd (peri), 
cv_sangd(long_asn), time, date, &(orbitinfo->orbitdatajae 
orbitinfo->newfile = FALSE; 
/* file is an olla@@ei le trcomeairsk * / 


return( resultCode==eofErr ); 
/* KKEKKKK KKK K KKK KK KKK KKK MO ReadFile KKeKK KKK KKK KKK KKK KK KKKKKKK KKK x / 


[OR KK IORI II II Ok kkk kkk kk kk ie 


MO ReadLine : handles reading a line of data froma file 
KEK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KEKE KK KEK KKK KKK KKK KKK KKK KKK KKEKKEKKKKKEK * | 
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@he 
MO ReadLine (buffer, 
char 
Berit 
{ 
long 
char 
long 
char 
anit 
bueter pos = 0; 
do 
{ 
count = 1; 
resultCode = 


{ 


sprintf (errormsg, 


FSRead( refNum, 
if (resultCode 


refNum) 


*Dut fer ; 
refNum; 


buffer pos; 
singlechar; 
Counce, 
errormsg [30]; 
resultCode; 


&count, &Singlechar ); 


'= noErr) 


POOLEY one toreror = £0" resultCode) ; 


CtoPstr(&errormsg) ; 
MO Generic (errormsg, "\pOccurred") ; 
return (resultCode) ; 


} 


buffer[{buffer pos] = 
buffer pos + 1; 


buffer pos = 


} while ((buffer pos < 80) 
mueter({buffer pos-1l] = 


singlechar; 


& & MA G1) Ws er 
SLs 


/* delimit end of string 


(butfer[(buffer pos-1] 


yi 


return (resultCode) ; 


} /* KKK KKK KK KKK KK KK KKK KKK MO ReadLine KKK KKK KKK KKK KKK KKK KKK KKK K KKK * / 


[HK I I I II FI I II I II I III III I I IIE IIE II III II II III II III II I I Ik 


MO fmNew : Via dialog get the info to setup a new orbit 


KKK KK IK IK KKK KKK IK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK * / 


void 

MO fmNew( myWindow, 
WindowPtr 
int 


{ 

DialogPtr myDialog; 
Boolean 

shehm 

seks 

Rect 

Handle 

Handle 

SerZ55 


slornum) 
*myWindow; 
slotnum; 


not_complete; 


itemhit; 

dummy ; 

ie Clee OUlc Ici ee Gin 

OK button, item_a, item_e, item _name, item_i, item _m; 


item peri, item_long, item_time, item_date, item units; 


SEL: 
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Grove lore *OrData neon 


Real a, @, i, mean, peri, long_asn, time, date; 
SEEZCooO orbname; 
orbitinfo = (OrbitInfo *) (( (WindowPeek) (*myWindow) ) ->refCon) ; 


myDialog = GetNewDialog(NewOrbitID, NIL, INFRONT) ; 


GetDItem(myDialog, 1, &dummy, &OK_ button, &button_rect); 
GetDItem(myDialog, 3, &dummy, &item_name, é&rect); 
GetDItem(myDialog, 4, &dummy, &item a, &rect); 
GetDItem(myDialog, 5, &dummy, é&iteme, &rect); 
GetDItem(myDialog, 10, &dummy, é&item_i, &rect) ; 
GetDItem(myDialog, 27, &dummy, &item_m, &rect); 


GetDItem(myDialog, 12, &dummy, &item peri, &rect); 
GetDItem(myDialog, 14, &dummy, &item_long, &rect); 
GetDItem(myDialog, 16, é&dummy, &item_time, &rect); 
GetDItem(myDialog, 24, &dummy, &item_date, &rect); 
if (prefer.std units == 1) /* Use canonical units x / 
{ /* (default is Metric Units) x / 
GetDIitem(myDialog, 22, &dummy, &item_units, &rect); 
SetIiText (item_units, "\p(hergs)"); 
GetDItem(myDialog, 17, &dummy, G&item_units, &rect); 
SetIText (item_units, "\p(Earth radii)"™); 
} 
SellText (myDialog, 3,0, 999); 
not complete = TRUE; 
itemhit = 0; 
MO OutlineButton( button rect, myDialog ); 


while ((not_complete==TRUE) && (itemhit!=2) ) 
{ 
do 
{ 
ModalDialog(NIL, &itemhit); 


} while ((itemhit != 1) && {itembite!—s ee 
/* OK or Cancel) Butien t/ 
Pe it emn it. ——a /* OK Button ->check results x / 


{ 

GetIText (item_name, &(orbname) ); 
GetIText (item_a, &str); 

a = MO pSerZNum(sser), 
GetIText (item_e, &str); 

e = MO pStr2Num(éstr); 
GetIiText (item_i, &str); 

1 = MO pStrZNum(sstr); 
GetIText (item_m, &str); 

mean = MO pStr2Num(&str) ; 
GetIText (item_peri, &str); 

peri = MO pStr2Num(éstr); 
GetIiText(item_long, &str); 
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long_asn = MO pStr2Num(&str); 
GetIText (item time, &str); 

time = MO pStr2Num(é&str); 
GetIText (item date, &str); 

date = MO pStr2Julian(&str); 


/* check if the values are valid x / 
if (orbname[0] != 0) 
if (a >= 0) 
if (e >= 0) 
1f (i >= 0) 


{ 
Hotmcompleec —— sh ALSE - 
ii onertomeseasunits == 1) 
{ /* convert from canonical units i 
ae— a - 80578 .6- 
} 
gl_sorbt(orbname, a, e, cv_sangd(i), cv_sangd(mean), 
cv_sangd(peri), cv_sangd(long_asn), time, 
date, &(orbitinfo->orbitdata) ); 
} 
if (not _complete) 
SysBeep (3); 


if (MO_DuplicWind(orbname) ) 
not_complete = TRUE; 


} /* end if OK Button x / 
} /* endwhile not complete * / 


DisposDialog(myDialog) ; 


if (not _complete == FALSE)/* it is complete so add the window a 
{ 

SetWTitle( *myWindow, orbitinfo->orbitdata.name) ; 

ShowWindow( *myWindow )j; 


SetItem(myMenus[windowM], slotnum + 5, orbitinfo->orbitdata.name) ; 
EnableItem(myMenus [windowM], slotnum + 5); 
} 
else /* not complete so remove the window a 
{ 
MO RemoveWindow( &*myWindow ); 
} 


jos KKK KKK KKK KKK KK KKK KKKKKEK MO fmNew KK KKK KKK KKK KKK KKK KKK K KKK KKK KK * / 
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[RK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KK KK KK 


FILENAME : MacOrbits=mapee 
DESCRIPTION >: handles setup & drawing of cartesian map 
ENVIRONMENT >: Macintosh SE 1Mb 

LightSpeed™ ¢ v2eam 
AUTHOR : Captain Kenneth L. BEUTEL USMC 
ADVISORS >: | Prof. Dan Davis 

Prof. Dan ™2ogeru 

Naval Postgraduate School, Monterey CA 
REMARKS > Contains Mac specific drawing commands 
VERSION O29 UKs 767 cc) 
CHANGES 3/6/88 Formatted for MacWrite conversion 


KKK KKK KEK KKK KKK KKK KKK KKK KKK KK EK KEK KKK KKK KKK KKK KK KKK KKK KKK KKK K KK KK KKKK * / 


#inceIvde "QuickDraw.h" 

#include "MacTypes.h" 

#include "FontMgr.h" 

#include "“WindowMgr.h" 

#include "MenuMgr.h"” 

fine lude "Texehart.h” 

#include "DialogMgr.h” 

#include "EventMgr.h" 

#include "DeskMgr.h" 

#include "FileMgr.h" 

vanclude “ToolboxUer nh 

Tine Lude s "Contre lMgr hn 

#include "stdio.h" 

#include "“LightSpeed Disk:Thesis C f:StdLib.h" 
#include "MacOrbits.h" 

#include "MacOrbits.proto.h"” 

extern Preferences prefer; /* preferences for how things look x / 


[RR KKK KK KKK KK KK KKK KK KK KK KK KK KKK KO kk kk kK kk kk KK kk kK kK KK 


MO CreateMap 


get bitmap of picture for "stamping™ on screen later 


KKK KKK KKK KK KKK KKK KK KKK KEKE KK KEKKK KKK KK KKK KK KKK KE KKK KK KKK KEKKKEKKKKKKKEK *x / 


void 
MO_CreateMap (bm, mapWindow) 
BitMap *bm; 
WindowPtr *mapWindow; 
{ 
GrafPtr mapPort; 
Graleur SaVEPOre, 
PicHandle mapHandle; 
Rect tempRect; 
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ent 


bmsize; /* bit map size yd 

if (*mapWindow != NIL) 
return; /* done - A map window already exists no 
MO Wait(); /* tell user it will take a while * / 


GetPort (&savePort) ; 
mapHandle = GetPicture(MapID); 


/* First get the picture drawn * / 
mapPort = (GrafPtr) NewPtr(sizeof(GrafPort) ); 
OpenPort (mapPort) ; /* does set for special grafport 7 
tempRect = (**mapHandle) .picFrame; 
ClipRect (&tempRect) ; /* avoid bug from Apple TN #59 x / 


PortSize(tempRect.right-tempRect.left, tempRect .bottom-tempRect.top) ; 


bmsize = 1 + (tempRect.right-tempRect.left) / 8; 
if ((bmsize % 2) != Q) 
bmsize = bmsizetl; /* an even number of bytes mh 
(*bm) .cowBytes = bmsize; 
bmsize = bmsize * (tempRect .bottom-tempRect.top) ; 
(*bm) .baseAddr = NewPtr(bmsize) ; 
(*bm) .bounds = tempRect; 
SetPortBits (&*bm) ; 


EraseRect (&tempRect) ; /* clear the new bitmap and draw * / 
DrawPicture(mapHandle, &tempRect ); 


SetPort (savePort) ; /* restore old grafport * / 
ClosePort (mapPort) ; /* don't leave the port around... x / 


*mapWindow = GetNewWindow(MapID, NIL, NIL); 


iret cursor(); /* xveset the cursor x / 


yx KKK KKK KKK KK KKK KKK KKK KEK MO CreateMap KEK KKKKKKKK KKK KKK KK KKK KEK * / 


[KR KKK I II III III IOI I IO IOI II II III III I III III II I II II I I I 


MO DeleteMap : deallocate bitmap and window to free memory 
KR KK KKK KKK KKK KKK KK KK KKK KK KKK KK KKK KK KKK KK KKK KKK KKK KK KKK KKK KKK KK * / 


void 
MO DeleteMap (bm, mapWindow) 
BitMap *xbm; 
WindowPtr *mapWindow; 
{ 
SralkPtr SavePort; 
Rect tempRect; 
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mt 


bmsize; /* bit map size ee 


if (*mapWindow == NIL) 
return; /* No map window exists 5); 


DisposPtr( (*bm) .baseAddr ); 
(*bm) .baseAddr = NIL; 
(*bm) .rowBytes = 0; 


DisposeWindow( *mapWindow ); 


*mapWindow = NIL; 
/* KKKKKKKKKKKK KKK KK KK KKK MO DeleteMap Kae KKK KKK KKK KKK KKK KKK KKK so 4 


[KK kk ik ek Ik ek kk kkk III Ik kkk kk ek kk ke 


MO DrawMap : stamp the map into the current window inside dstRect 
KKK KKK KKK KKK KEKE KEK KKK KKK KEKE KKK KKK KKK KKK KKK KEK KK KEK KKK KKK KKK KEKE KEKE KKK KKK * / 


void 
MO DrawMap (bm, mapWindow) 

BitMap bm; 

WindowPtr mapWindow; 
{ 
static Rect dstRect = 

{ MAP TOP+9, MAP LEFT, MAP TOP+9+160, MAP LEFT+416 }; 

GrafPtr savePort; 
Rect at /* entire map rect incl. poles | 

if (prefer.showmap != TRUE) 

return; 


GetPort( &savePort ); 

SetPort( mapWindow ); 

InvalRect ( &(mapWindow->portRect) ); 
BeginUpdate( mapWindow ); 


MoveTo (120, 30); /* Norvz vert <7 
TextFont (systemFont) ; 
DrawString("\p World Geographic Coordinate System") ; 


CopyBits (&bm, & (mapWindow-~>portBits) ,&((bm) .bounds), &dstRect,srcCopy, NIL); 


E.toOp = MO Haetoraxel (9020) 

[> 290-Ne a 
r.left. = MO LenvoPixel iets 0) 3, 

/* 181°E. a 
r.bottom = MO LattoPixel (-90.0); 

/* 90°S. */ 
r.right = MO LontoPixei) 30-0) 4) 

/* 180°E. ae 
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FrameRect (&x); /* Frame the map x / 


/* Draw Monterey as a Square Box x / 
melett = MO LontoPixel (360.0-120.0) —-2; 
meraght = r.left + 4; 
r.top = MO LattoPixel(36.0)-2; 
meeOLLom= r.top + 4; 
FillRect (€r, black); 


EndUpdate( mapWindow ); 


SetPort( savePort ); 
yx KK KKK KKK KKK KKH KKK KKK KE MO DrawMap KKK KK KKK KKK KKK KKK KEKE xf 


Cin KA RK AM RAK AK AK KEK AR KK RKAKKAKRKKKARRKKKEKAKRAKKRKEKEKKKKKEKKKKKKEKKKKK 


MO DrawMapUpdate : add satellite pos to global map 


KKK KKK KKK KKK KEK KKK KKK KK KKK KKK KKK KKK KEK KEKE KEK KKK KKK KKK KEKE KEKE KEKE KKEKEEK * / 


void 

MO DrawMapUpdate( orbitinfo, mapWindow ) 
Eo1t Into Qriodeeimt ©; 
WindowPtr mapWindow; 

{ 

GrafPtr savePort; 

Rect 1g 


GetPort( &savePort ); 

SetPort ( mapWindow ); 

switch (prefer.draw_method) 

{ 

case 0: /* dots only x / 
E.top = MO LattoPixel( cv_gangd(orbitinfo.geo.latitude) ); 
meoottom = r.top + 5; 
e.left = MO LontoPixel( cv_gangd(orbitinfo.geo. longitude) ); 
merrognht = r.left + 5; 
FillOval(é&r, black); 


break; 
case 1: /* lines only a 
if (prefer.first plot != TRUE) 


{ 
MoveTo (MO_LontoPixel( cv_gangd(orbitinfo.last_geo.longitude) ), 
MO_LattoPixel( cv_gangd(orbitinfo.last_geo.latitude) )); 
fe op — MOULAteOrPixel( ¢v gangd(orbitinfo.geo.latitude) ); 
melett = MO LontoPixel( cv _gangd(orbitinfo.geo. longitude) ); 
emi (ororeinto.last geo.longitude <= PI) 
&& (orbitinfo.geo.longitude >= PTI)) 

break; /* early break due to changing map edge ao 

mone lo(r, lett, “© .top) ; 


Ne 


break; 


case 2: /* both lines and dots 
big 


} 


{ 


(prefer .first_plot != TRUE) 


es / 


MoveTo (MO _LontoPixel( cv_gangd(orbitinfo.last_geo.longitude)), 


MO_LattoPixel( cv_gangd(orbitinfo.last_geo.latitude) 
r.top = MO LattoPixel( cv_gangd(orbitinfo.geo.latitude) ); 
r.left = MO_LontoPixel( cv_gangd(orbitinfo.geo.longitude) ); 


if ((orbitinfo.last geo. longitudes -— ea 
&& (orbitinfo.geo.longitude >= PI)) 

break; /* early break due to changing map edge 
LineTo(r. letit,.2.top). 
r.top = r.top —- 2; /* center enemece 
t.bottoms= LZ .topr.- os, 
r.left = r.left - 2;/* center the dot 
r.right = r.leithae 5; 
FillOval(&zr, black); 


else /* starting so just Graw aucee 


{ 


} 


break; 


} 


r.top = MO LattoPixel( cv_gangd(orbitinfo.geo.latitude) ) - 
rE. DOEEOM.—— co, Copates: 

r.left = MO _LontoPixel( cv_gangd(orbitinfo.geo.longitude) ) 
ESELGne. = oe leccrie 

FillOval(&zr, black); 


SetPort( savePort ); 


aes 


a, 


ss 


a 


x / 
ae 


ma 3 


/* KKK KKKKKKKKEKKKKEKKKEKEK MO DrawMapUpdate KKK KKK KK KKK KKK KKK KKKKEKEK * / 


[KK RIK I I I IK KK IIE FO TO III I III I II I Ik I ke ee 


MO LattoPixel : compute the pixel nearest to North(>0) 


or South (<Q) 


KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KKK KEK KKK KKKEKKKKKK * / 


ab elie 


MO LattoPixel (lat) 


{ 


int 


double 


temp 


lat; 
temp; 


((90-lat) * PIX SEAT eae iAeeee, 


return( temp ); 


/* KKKKEKKKKKEKKKKKKEKKEKKEKEK MOC bate tor ueceuk KKK KKK KKK KKK KKK KKK KK KKK KEK * / 
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[RR KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKK KK KK KKK KKK RK KK KKK KKK KKK KK KKK 
MO LontoPixel : compute the pixel nearest to East Longitude 
where west (left) map edge is 181° E.Longitude and 
east (right) map edge is 180° E. Long. 


KEK KKK KKK KKK KEK KKK KEK KKK KKK KKK KK KEK KEK KKK KEK KKK KKK KKK KKK KEK KKK KK KEKE KEK KK * / 


ont 
MomLont oPixel (lon) 

double Lon; 
{ 
ant temp; 


mee((0.0 <= lon) && (lon <= 180.0)) 

temp = (lon * PIX LON) + (MAP LEFT + 416/2); 
else if ((180.0 < lon) && (lon <= 360.0)) 

temp = ((lon-180) * Pa koNy) + MAP hint >; 
else 

temp = 0; 
return( temp ); 


} /* RRR KKK KK KK KKK KKK KKK KKK MO ont ori xe | KEK KKK KEKE KKK KKK KEK KKK KKK KKK * / 


es, 


[RR KKK KKK KK KKK KK KKK KKK KKK KKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KR KK KKK KKK KK 


FILENAME >; MacOrbits.menu.c 
DESCRIPTION >: menu manager for other than first 3 menus 
ENVIRONMENT : Macintosh SE 1Mb 
LightSpeed™ (C]vZaas 
AUTHOR >: Captain Kenneth L. BEUTEL USMC 
ADVISORS : Prof. Dan Davis 


Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS : plot menu code found in MacOrbits Joe 
VERSION >: O.9 (376768) 
CHANGES : 3/6/88 Formatted for MacWrite conversion 


KEKE KEK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKK KKK KKK KKK KK x / 


include 
#include 
#include 
#include 


"OuaekDraw.hA”™ 
"MacTypes .h” 
NE OnEMG 2 1. 

"WindowMgr.h" 


#include “MenuMgr.h" 

finelude “TextEdit. a. 

#include "DialogMgr.h" 

#include "EventMgr.h" 

#include "DeskMgr.h" 

#include "FileMgr.h" 

#include "ToolboxUtil.h" 

#inelude "ControlMgz nh” 

#include "StdFilePkg.h" 

include. "stdio.n” 

#include "LightSpeed Disk:Thesis C f:StdLib.h" 

#include "MacOrbits.h" 

#include "MacOrbits.proto.h" 

extern Preferences prefer; /* preferences for how things look x / 
extern WindowPtr mapWindow;/* the window that draws world map * / 
extern BitMap map bm; /* where the original map is drawn x / 


[RR KKK RR KR RR KR KK KR KK KK I I i ee de ee ee ee 


MO OrbitsMenu : info on how to display orbit 


KEKE KKK KEK KKK KKK KKK KKK KKK KEKE KEK KKK KKK KKK KKK KK KEK KKK KK KEK KEKE KEKKKKKKKK KK x / 


void 

MO OrbitsMenu(theItem, theWind) 
isahe theItem; 
WindowPtr theWind; 
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mer Zo5 str: 


rot info ZOCOTCInNL OF 
Rect plotRect; 
orbitinfo = (OrbitInfo *) (( (WindowPeek) (theWind) )->refCon) ; 


switch (theItem) 
{ 


case l: [/* **x*k DISPLAY AS TEXT **** x / 
Sroitinto--textonly = TRUE; 
break; 
case 2: /* **** DISPLAY GRAPHICALLY **** */ 
orbitinfo->textonly = FALSE; 
/* fix to erase textbox of graphic wind ae 


plotRect = theWind->portRect; 
plotRect .bottom = plotRect.top + (2*BOX_V+4); 
EraseRect (&plotRect) ; 


break; 

case 4: EE Ie OOS: ee a) 
orbitinfo->coordinates = IJK_COORDS; 

break; 

case 5: /* *xkxk POW COORDS **** “7, 
Oorbitinfo->coordinates = POW _COORDS; 

break; 

case 6: j ~ **=* SCREOGRAPHIC COORDS **** = 
orbitinfo->coordinates = GEO COORDS; 

break; 

default: 


NumToString(theItem, str); 
MO_Generic( "\pUnimplemented Orbit Menu item:", str ); 


} 
prefer.changes = TRUE; /* Adjust menu bar approriately * / 
InvalRect (& (theWind->portRect) ); 


/* KAR KKKKKKKKKK KK KK KEKE MO OrbitsMenu KKK KKK KK KKK KKK KKK KKK KK KKK x / 


[KKK KK KI I III I III III II I II I I I I kk 


MO PlotMenu : info on how to display orbit 


KEK K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKKKKKKKKEKK * 


void 
MO PlotMenu (theItem) 

ant theItem; 
{ 
Ber255 Sir; 


Switch (theItem) 


{ 
case plONE: (ee ee OR wor hCir TED 1 EME) «= ** wall 
MO _SetPlotDuration (); 


|S) 


break; 
case plCONT: /* *kx*k PLOT CONTINUOUSLY **** 


prefer.plot_ duration = plCONT; 
prefer plotting = TRUE, 
preter fins plete] Thun, 
/* initiating new plot sequence 
prefer.elapsed time = TickCount(); 
prefer.changes = TRUE;/* Update the menu items appropriately 


break; 

case plRESET: {/* *kk*KRESET PLOT **** 
prefer.time = 0; /*x simply reset the counters... 
prefer.elapsed time = TickCount (); 
MO_ForceUpdate (); /* and force redraw of whole screen 
MO DrawMap(map_bm, mapWindow) ; 

break; 

case plSTOP: /* ***k*xSTOP PLOTTING **** 


prefer.plotting = FALSE; 
prefer.changes = TRUE;/* Update the menu items appropriately 


break; 
default: 


} 


NumToString(theItem, str); 
MO _Generic( "\pUnimplemented Plot Menu item:", str ); 


as 


it / 


iy 


ai 
a 


ah | 


ae 


a 


} /* KEK KKK KKK KEK KK KKK KKK MO PlotMenu KEKE KKKKRRKKRKRKRKRKRKRKRKAK RK KKK KKK * ff 


[KKK KKK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KK KK KK KKK KK KKK 


MO _ 


SetPlotDuration : select amount of time to plot for 


KKK KKK KKK KKK KKK KKK KKK KER KERR KR KKK KK KKK KK KKK RK KKK KKK KKK KKK KK KK KKK KK * / 


void 
MO SetPlotDuration () 


{ 


DialogPtr myDialog; 


shake 
slgtie 
Handle 
double 
Rect 
StrtzZos 


myD 


itemhit; 

dummy ; 

time text, ek buccon, 
time_val; 

Lect, 

SiG, 


lalog = GetNewDialog(PlotDurationID, NIL, INFRONT); 


GetDItem(myDialog, 4, &dummy, &time_ text, &rect); 


/* wall clock plot time (minutes) 


GetDItem(myDialog, 1, &dummy, &ok button, &rect); 
MO OutlineButton( rect, myDialog ); 


Sel 


IText (myDialog, 4, 0, 99); 
/* Hilight text 


itemhit = 0; 
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“7 


a 


wale ((itemhit '= 1) && (itemhit != 2)) 
{ 
ModalDialog(NIL, &itemhit); 
if (itemhit == 1) 
{ 
GetIText (time text, &str); 
time val = MO_pStr2Num(&str); 
if (time_val <= 0.0) 
itemhit = 0; /* invalidate OK button selection 7 


if (itemhit == 1) /* OK button so set changes ay 


prefer.plot duration = plONE; 
prefer.plotting = TRUE; 
prefer.first plot = TRUE; 


/* initiating new plot sequence ‘av 
prefer.elapsed_ time = TickCount (); 
prefer.changes = TRUE;/* Update the menu items appropriately ny 
prefer.stop_ time = time_val * 60.0; 
/* convert minutes to secs </ 
} 
DisposDialog (myDialog) ; 
} /* KKK KKK KKK KKK KKK KK KKK MO SecelotDurat 1.oOn KEKE KKK KKK K KKK KKK KKK * 


[KK I OOOO IO IO III III II IOI II ko 


MO WindowMenu : info on how to configure world 
Kak KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KEK KKK KKK KKK KKK KKK KKK KKK x / 
void 
MO_WindowMenu (theItem) 
int theItem; 
{ 
Bete 95 Sie, 
WindowPtr current; 


switch (theItem) 
{ 
case 1: /* ****k SHOW/HIDE GLOBAL MAP ***x* x / 
if (prefer.showmap) 
{ 
prefer.showmap = FALSE; 
prefer.changes 2USICN 
/* Force Redrawing of menu's x / 


else 


Sy 


prefer.showmap = TRUE; 
prefer.changes TRUE, 
/* Force Redrawing of menu's <a 


} 
break; 
case 3: 

current = MO FirstWindow(); 

while (current != NIL) 

{ 

MO HideWindow(current); 
current = MO NextWindow(current) ; 

} 

prefer.changes = TRUE;/* Adjust menu bar appropriately va 
break; 
case 
case 
case 
case 
case 

MO ShowWindow(theItem - 5); 

prefer.changes = TRUE;/* Adjust menu bar appropriately x / 
break; 
default: 

NumToString(theItem, str); 

MO Generic( "\pUnimplemented Window Menu item:", str ); 


oor n WM 


} 


} /* KKK KKK KKK KEK KK KKK K KKK MO WindowMenu KREAEKKKKKRKEKKKKKKEKEKEKE KERR SS <7 


[ & RK KK KK RK KK KK KOK KOO ek 


MO SpecialMenu : miscellany 
KR KKK KEK KEK KKK KEKE KEKE KKK KKK KEK KEK KE KKK KK KEK KEKE KKK KEK KEK KKK KEKE KK KEKEKEKKKKKKKKK * / 


doula: 
MO SpecialMenu(thelIterm, 

Ine theItem; 
{ 
Stre255 SEE: 
WindowPtr current ; 
GrafPtr savePort; 


Switch (thelItem) 
{ 


case 1: /* ***x* DISPLAY UNITS **** x / 
MO _SetUnits(); 
MO ForceUpdate(); /* and force redraw of whole screen x 
break; 
case 2: /* **x** TIME STEP **** * / 


MO TimeStep(); 
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break; 


case 3: jj io Poe DRACH ORBIT ***x* x / 
MO OrbitTrace(); 

break; 

case 4: /* ***x* SHOW/HIDE AXES **** * / 


if (prefer.showaxes) 
{ 

prefer.showaxes = FALSE; 

prefer.changes = TRUE; 

/* Force Redrawing of menu's * / 

} 
else 
{ 

prefer.showaxes = TRUE; 

prefer.changes = TRUE; 


/* Force Redrawing of menu's xf 
} 
MO ForceUpdate(); /* and force redraw of whole screen x] 
break; 
eerault: 


NumToStzring(thelItem, &str); 
MO Generic( "\pUnimplemented Special Menu item:", str ); 
} 


} /* KKK KK KKK KKK KK KK KKK KKK MO SpecialMenu KKK KKK KK KKK KKK KKK KKK KK KKK x / 


| % KK kk Ke He ee ie ee ee kee ie IE ee I Ke ee Ke ee ee ee ie I ee 
PemoetUnits =: select a new system of units 
KK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK HK KKK KKK KKK KKK KKK KKK KEKKK KK x / 
void 

MO SetUnits () 

{ 


DialogPtr myDialog; 

rat itemhit; 

int dummy ; 

Handle Meewie OUEeem, Canon oucton, english button, ok button; 
Rect Leet, 


myDialog = GetNewDialog(SetUnitsID, NIL, INFRONT) ; 
GetDItem(myDialog, 3, é&dummy, &metric button, f&rect); 


PsNeteurceunits radio DUuLEOn x / 
GetDItem(myDialog, 5, &dummy, &canon_button, &rect); 

/* canonical units radio button aa 
GetDItem(myDialog, 6, &dummy, f&english_button, &rect); 

/* english units (unsupported) button x] 


SetetlValue(metric button, 0); 
SetCtlValue(canon_button, 0); 


iy 


HiliteControl (english butten, 2555 
/* Disable this radio button 


if (prefer.std units == Q) 
SetCtlValue (metric button, 1); 
else if (prefer.std_ units == 1) 


SetCtlValue(canon button, 1); 
itemhit = 0; 


GetDItem(myDialog, 1, &dummy, &ok_button, &rect); 
MO OutlineButton( rect, myDialeg ); 


while ((itemhit != 1) && (1temnie  1=92))) 
{ 
ModalDialog(NIL, &itemhit) ; 
if (itemhit == 3) 
{ 
SetCtlValue (metric button, 1); 
SetCtlValue(canon_button, 0); 
} 
else if (itemhit == 5) 
{ 
SetCtlvalue (metric button, 0); 
SetCtlValue(canon_button, 1); 


1f (itemhit == 1) /* OK button so determine changes 
{ 
if (GetCtlValue (metric button) == 1) 
prefer.std units = 0; 
/* The final choice was metric units 
else if (GetCtlValue(canon_ button) == 1) 
Prefer .std units — a; 
/* The final choice was canonical units 
} 
DisposDialog(myDialog); 


is 


xy 


x 


ai 


/* KKK KKK KKK KKK KKK KKK KK MO Sertunits KKK KKK KKK KKK KKK KKK KKKKKAKEK x f 


[RKKKKKKK KKK KKK KR KKK KR KKK RR KR KK RK KKK KK RK KR RK KR RK KKK KK KR KKK KK KKK KK 


MO TimeStep : select a new compression ratio or plot increment 


KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KKK KKK KKKK KEK xf 


void 


MO TimeStep () 


{ 


DialogPtr myDialog; 

Inte TEeMAe 

pl gie dummy ; 

Handle compress, increment, ok_button; 
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double Sonipa Valls Ener iva; 
Rect eect. 
“hi eyace Re) StL, 


myDialog = GetNewDialog(TimeStepID, NIL, INFRONT) ; 
GetDItem(myDialog, 8, &dummy, &compress, &rect); 


/* compression ratio text x / 
GetDItem(myDialog, 6, &dummy, &increment, &rect); 
/* plotting increment text oy 


Ssprintf(str, "%G",prefer.time comp); 
CtoPstr(&str); 
Bec iText (compress, str); 
sprintf(str, "%G",prefer.draw incr); 
Meorstr(é&stx); 
SetIText (increment, str); 
SelIText (myDialog, 6, 9, 99); 

/* Hilight plotting increment text af 
itemhit = 0; 
GetDItem(myDialog, 1, &dummy, &ok_button, érect); 
MO OutlineButton( rect, myDialog ); 


while ((itemhit != 1) && (itemhit != 2)) 
{ 
ModalDialog(NIL, &itemhit) ; 
if (itemhit == 1) 
{ 
GetIiText (compress, &str); 
comp_val = MO pStr2Num(éstr); 
if (comp_val <= 0.0) 
itemhit = 0; /* invalidate OK button selection x | 
GetIText (increment, &str); 
incr val = MO pStr2Num(&str); 
fee(iner val <= 0.0) 
itemhit = 0; /* invalidate OK button selection x | 


if (itemhit == 1) /* OK button so set changes a, 
{ 

prefer.time_ comp = comp_val; 

Peeter.draw incr = incr val; 


DisposDialog(myDialog) ; 


} /* KKK KK KKK KKK KKK KEK KKK KK MO TimeStep KKK KKK KKK KKK KKK KKK KKK KK KKK * / 


[RRR KK KKK KKK KKK KKK KKK KKK KKK KK RK RK KK RK KK KKK KK KK IK OK KK OR OK OK KK kk Ok 
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MO OrbitTrace : select a method ef plotting vena. 
0 - dots; 1 - lines; 2 = doetsvommaa-- 


pen nen nen ner re cr nee en er ee ee ar ar ee ear ee ee ace eae cnn ane ener fay 


void 


MO OrbitTrace () 


{ 


GrafPtr savePort; 

DialogPtr myDialog; 

ine itemhit, olditem; 

ine dummy, 1; 

long int themethod; 

Handle dots_icon, line_icon, dotline icon, ck) buece 
Rect rect; 

Rect ICON. Teer sis 

Ser2o5 Str; 


GetPort (&savePort) ; 
myDialog = GetNewDialog(TraceOrbitID, NIL, INFRONT) ; 
SetPort ((GrafPtr) myDialog) ; 


GetDItem(myDialog, 3, é&dummy, &dots_icon, &(icon_rect[0])); 
i dots cen 

GetDItem(myDialog, 4, &dummy, &line_icon, &(icon_rect[1])); 
/* solid line icon 

GetDItem(myDialog, 5, &dummy, é&dotline_icon, &(icon_rect[2])); 
/* dotted line icon 


itemhit = prefer.draw_method + 3; 
themethod = prefer .draw_ method; 
/* icons are items 3,4,5 respectively 


for (i=0; i<=2; i=i+l) 
InsetRect (&(icon_rect[{i]), -4, -4); 


PenMode (patXor) ; /* Erase any existing rect with redraws 
Pensize(2; 2); 


olditem = itemhit; 
BeginUpdate ( (WindowPtr) (myDialog) ); 
DrawDialog(myDialog) ; 
FrameRect (& (icon_rect [itemhit-3])); 
EndUpdate ((WindowPtr) (myDialog) ) ; 


GetDItem(myDialog, 1, &dummy, &ok_button, &rect); 
MO_OutlineButton( rect, myDialog ); 


while ((itemhit != 1) && (itemhit != 2)) 
{ 
ModalDialog(NIL, &itemhit) ; 
if ((3 <= itemhit) && (itemhit <= 5) && (olditem 9— tenses 
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i) 
as 


<7 


7 


ly 


FrameRect (& (icon rect [olditem-3])); 
FrameRect (& (icon rect [itemhit-3])); 
themethod = (itemhit-3); 

olditem = itemhit; 


if (itemhit == 1) /* OK button so set changes “ld 
{ 


Beeter.draw method = themethod, 


SetPort (savePort); 


DisposDialog(myDialog) ; 
/* KKK KK KKK KK KKK KKK KK KKK MO Orbit Trace KaAKKKK KKK KKK KKK KKK KKK KKK * / 
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[RRR KKK KKK KKK KK KKK KKK KKK KKK KK KKK KK KK KKK KEK KK KKK KKK KKKKKKKKKKKKKKKK KKK K 


FILENAME >: MacOrbits.plve 

DESCRIPTION : contains drawing (plotting) routinesmies 
orbit window contents. 

ENVIRONMENT >: Macintosh SE imp 
LightSpeed™ € vZei5 

AUTHOR : Captain Kenneth L. BEUTEL USMC 

ADVISORS >: Prof. Dan Davis 


Prof. Dan Boger 
Naval Postgraduate School, Monterey CA 


REMARKS >: called by menu code in MacOrbits.menu.c 
VERSION OSORNO ee, 
CHANGES : 3/6/88 Formatted for MacWrite conversion 


KEK KKK KKK KKK KKK KKK KEK KKK KEK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKK x / 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 


#include 
#include 


extern 


extern 
extern 


[RRR KKK KKK KKK KK KKK KKK KK KK KKK KKK KK KKKKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK 


MO TextOnly : writes data into window for text only display 
KR KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK x / 


void 


MO_TextOnly( orbitinfo) 
Orbat into Orbatinte, 


"OurekDraw.h" 
"MacTypes.h" 
Mr oOnemMgr. i 
"WindowMgr.h" 
"MenuMgr.h" 
"“Textlcadtc.h™ 
"DialogMgr.h" 
VEVentMGgre sh 
"DeskMgr.h” 

VP i leMgr, bh 
"ToolbexUEsl hh” 
"ControlMgr.h” 
WSstavo - ti 
"math .h” 


"LightSpeed Disk:Thesis C f:StdLib.h" 


"MacOrbits.h" 
"MacOrbits.proto.h” 


Preferences prefer; 


/* preferences for how things look x / 


BitMap globePics [MAXGLOBES] ; 
WindowPtr mapWindow; 


/* backgd window of world map x / 
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{ 
Beatic Str30 


Beatie Str30 


titlel[10] = 
io Vosemimagom 5 \oEeccentricity’, "“\pinclination", 
"\pArg. of Perigee”, "\pLong. of Ascending Node", 
"\pMean Anomaly", "\pEpoch Time", "\pEpoch Date", 
"\pEccentric Anomaly", "\pPeriod" }; 

title2[10] = 
{"\pPerigee Radius","\pApogee Radius","\pMean Motion", 
"\pAngular Momentum", "\pSemiparameter", 
"\pCurrent Radius", "\pSwath Width", "\pCurrent 


Telocity"™, 
UNphecape Veloetey., “\pSpecific Energy” }; 
eho i; 
Rect infoRect, eraser; 
Berl Ser, 
Dist a, tempd; 
Real e7 
Angle ine; 
Dist radius; /* the current radius km * / 
Real velocity;/* the current velocity km/sec oll 
Dist X,Y, Z;3 
Angle eccen_anom; 


TextFace (bold | extend); 


MoveTo( (408/2) - (StringWidth("\pTextOnly View") /2), 


DrawString("\pTextOnly View") ; 
TextFace (0); 
PenSize (2,2); 


Als) tas 


MoveTo (0,175); /* Draw bottom horizontal line aT 
iene tTo(408,175);> 
MoveTo (0,22) ; /* Draw top horizontal line a // 
LineTo (408,22) ; 
MoveTo (408/2, 22); 
LineTo (408/2,175); /*x* draw center vertical line cei 
PenSize (1,1); 
mere. ( 1=0; 1<10; i=it+1) 
{ /**Praw lst column titles ie 
MavyeTo(l0, 35+(15*1i) ); 
DPrawString (titlel[i]); 
} 
for ( 1=0; i<10; i=itl) 
{ /* Draw 2nd column titles x / 
MoveTo((408/2) +10, 35+(15*i) ); 
DrawString(title2[i]); 
} 
/* Get Eccentric Anomaly eo, 


eecen anom = kl gecca(&(orbitinfo.orbitdata), orbitinfo.orbitdata.epoch) ; 
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jx *kkxkkk* Create data for left ycolummn ae x / 
SetRect (G4infoRect,135, 24, 2037 eo 


/* lett, €0p, Etecme ss Soe com x / 


FrameRect (&infoRect) ; 
for ( 1=0: - 1<10> 1-72) 


{ 


MoveTo (infoRect.left + 5, 35+(15*i)); 
switch (1) 


{ 


case 0: /* Semi Major axis x / 
a = gl gorba(erbiltinto orbitdaca: 
if (prefer.std_units == Q) 
{ /* Metric unites x / 


SPrint£(é&str, "S=7. ft km ape 
} 
else if (prefer.std_units == 1) 
{ /* convert from canonical units ey 
tempd = a / 6378.6; 
Sprantt (&str, “s-5.3£ ER." ,  tempeve. 
} 
CEoPster (Gstr), 
break; 
case l: /* eccentricity ga! 
e@ = gl_gorbe (orbitinfo.orbitdata); 
SPEINCE(&Str, “s—-7 ok pee 
CroPstr(é&stzx) > 
break; 
case 2: /* Anetination x / 
inc = cv _gangd(gl gorbi(orbitinfo orbircdoea 
Sprintt (Sstr,- to 727 ence 
CtoPstr(&str) ; 
break; 
case 3: /* argument of perigee x / 
sprintf(&str, "%-7.2f£°",cv_gangd(gl_ gorbp(orbitinfto.orbitaaees 
CEOPSCr(estr) > 
break; 
case 4: /* longitude of ascending node ay 
sprintf (&str, "%-7.2£°",cv_gangd(gl gorbl (orbitinfo.orbitdaeas 
CtoPstr(&str) ; 
break; 
case 5: /* mean anomaly a 
sprintf (&stx,. “S=7 .5f acdsee 
cv_gangr (gqlagorbm (orbitintoworbieaars)) aoe 
CtroPstr(é&str) > 
SetRect (&eraser, 136, 35+(15%*(i-1)), 202, 35+(15*1)); 
EraseRect (&eraser) ; 
break; 
case 6: /* Current time in secs past epoch xy 
TUTimeString(prefer.time, TRUE, str); 
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SeeReCeGeMeeraser,. |26,) 5c5+(15*(1—-1)), 202, 354+(15%*1)); 
EraseRect (&eraser); 

break; 

case 7: /*epoch date 
Demers se nee oo. OL” fpoOrbacanfLo.orbitdata.date) ; 
CtoPstr(&str); 

break; 

case 8: /*Eccentric Anomaly 
Sean wseh, ros) sof Eada, €Scen anom ) ; 
Croeest= (fs5tr); 
SetRect (&eraser, 136, 35+(15*(1-1)), 202, 35+(15*i1)); 
EraseRect (&eraser) ; 

break; 

case 9: /*Period 


SPaEientsstL, 's-9.2f min’, ql Ggperd(gl gmean(a))/60.0 ); 


GEOESEE (&SEX) > 
break; 
} 
DrawString(str); 
} 


[x x*xkxxkx Create data for right column Kk KK KK 
SetRect (&€infoRect, (408/2) +137, 24, (408/2) +205, 175); 
P-VeGi ete p,  ELGnt,  ooOttom 
FrameRect (&infoRect) ; 
more ( 1=0; 1<10; i=itl) 
{ 
MoveTo(infoRect.left + 5, 35+(15*i)); 
Biwdcch (1) 


{ 


case 0: /* radius of perigee 
tempd = gl_gradp(a,e); 
if (prefer.std_units == 0) 
{ /* metric units 


SPEinchi(séstr, "“t-/.1£ km", tempd) > 
} 
else if (prefer.std_ units == 1) 
{ P< NeCOnVeLE  LLOMm canonical units 
tempd = tempd / 6378.6; 
Seermet (GStr,e>-5.3f E.R.", tempd) ; 
} 
SEOPStr(&str) ; 
break; 
case l: /* radius of apogee 
Eempa = Gl grada (a, eé) ; 
if (prefer.std_units == 0) 
{ /* metric units 
SPaliek(astr, = s-7 .lf km", tempd) ; 
} 
Sse if (preter.std units == 1) 
{ /* convert from canonical units 
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as 


557 


ae 


ae 


ay 


a 


a, 


oY 


id 


af 


ay 


tempd = tempd / 6378.6; 
sprintf (&str, "t=5.3£ E.Ro”, temeae 
} 
CtroPsSt FUGSeEr);> 
break; 
case 2: /* mean motion 
Sprintt (&str, “857 .5£",g) gmean(aya, 
CtoPst r(éstxe)-; 
break; 
case 3: /* angular momentum 
Sprint£(&str, "S=7 lf", oligangmt a owe 
CtoPstr(&str); 
break; 
case 4: /* semiparameter 
tempd = gl _gsemi(a, e); 
if (prefer.std_units == Q) 
{ /* metric units 
sprintf (&str, "t=7.1£ km”, tempd). 
} 
else if (prefer.std_units == 1) 
{ /* convert from canonical units 
tempd = tempd / 6378.6; 
sprintt (&str, “3=—5.3£ E-R.”, scempe, 
} 
CEOPSEr(EStr) ; 


break; 
case 5: /* current radial distance 
radius = gl_ grade(a,e,eccen anom); 
tempd = radius; 
if (prefer.std_units == Q) 
{ /* metric units 
sprint£t (&str, tev. km" eempen. 
} 
else Lf) (preter. std mats .== 21) 


{ /* convert from canonical units 
tempd = temod / 6378.6; 
Sprintf(€str, "%-5.3f BR.) eempens 
f 
CtoPstr(&str); 


a 


SetRect (eraser, 343, 35+(15*(i-1)), 406, 35+(15*i)); 


EraseRect (&eraser) ; 


break; 
case 6: /* swath width 
tempd = gl_ggswi (radius) ; 
if (prefer.std_units == 0) 
{ /* metric units 
sprintf(&str, "%-7.1£ km", tempd); 
} 
else if (prefer.std_units == 1) 


{ /* convert £rem Canonical wes 
tempd = tempd / 6378.6; 
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<7 


a 


air 


aa 


~ i 


air 


ty 


i 


a 


a 


Siiniier (strc, c=>.5f H.R.”", tempd) ; 
} 
CEOrStr(&e&sStr); 
SetRect (&eraser, 343, 35+(15*(1i-1)), 406, 354+(15*1)); 
EraseRect (&eraser) ; 
break; 
case 7: /* current velocity co ) 
velocity = gl_gvelo(radius, a); 
Soriner (6stn, “S=-/,L£ km/s", velocity) ; 
CtoPstr(&str); 
SetRect (&eraser, 343, 35+(15*(1i-1)), 406, 35+(15*i)); 
EraseRect (&eraser) ; 
break; 
case 8: /*escape velocity ah 
Serer ese | o-). br kins, Giwovesc (radius) ); 
Srersen (ast 2). 
SetRect (&eraser, 343, 35+(15*(i-1)), 406, 35+(15*i)); 
EraseRect (&eraser) ; 
break; 
case 9: /*specific energy * / 
BoCIMet (Goer ema -7.1f"') gl gspen{(velocity, radius) ) >; 
SLOPsStr (&str) > 
SsetRect (feraser, 343, 35+(15*(i-1)), 406, 35+(15*i)); 
EraseRect (&eraser) ; 
break; 
} 


DrawString (str) ; 


ieee ~**x* Create data for bottom section:Coord System Location ***** */ 
MoveTo(20, 185); 
DrawString("\pCoord System") ; 


/* Internal time formats are: StdLib = decimal hrs, MacOrbits=seconds */ 
Mom (1=0; i<3; i=it+l) 
{ 
Bwitch (1) 
{ 
case 0: 
StiGoy(str, “ijk ) > 
Morr t int o.i jk x; 
v= TOroieInroolak. Vy; 
7) (helo Si esliqumenphy|) qrer ars 


if (prefer.std_units == 1) 
{ /* convert to canonical units x / 
Me 6575 26; 
y= y / 6378.6; 
z= z/ 6378.6; 
} 
break; 
case 1: 
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SCrepY (Str, Oe 


/* should always be zero ! 


/* convert to canonvea le onte>s 


/* convert to canonical units 


X= O©FDLEINLO- paws, 
Y= Orbitinto-paw-y, 
Z= OrD1lEIMfo. paws. 
if (prefer.std_ units == 1} 
{ 
x S/o 36S7'8 6, 
Vy = y /-6378nc- 
Z2:= 2 / O30ero, 
} 
break; 
case 2: 
SCrCpY (Str,. “Geographivewr 
x= cv_gangd(orbitinfo.geo.latitude) ; 
y= cv_gangd(orbitinfo.geo. longitude) ; 
Z= orbitinfo.geo-. altitude, 
if (prefer.std_units == 1) 
{ 
ZZ PROS TOO; 
} 
break; 


} 


MoveTo(25, 200 + (1%*15) ); 
/* print the heading 

CtoPstr(&str); 
DrawString (str); 
SetRect (&eraser, 90-1, 200 -11 + (1%*15), 350, 200 + 
EraseRect (&eraser) ; {/* left, top, Eight, bortcom 
MoveTo(90, 200 + (1*15) ); 
if (i==2) 

SPYLINtE (&Str,.-"latstsc=—7. te 
else 

SPLInti(astxr, “x =Sa7ere oe 
CtoPstr(&str); 
Drawstring (Str); 
MoveTo{160, 200 47) (1415) 9 
1f (1==2) 

sprintf(&str, "lon=%-7.1£", y); 
else 

Sprintf(&str, “y =s=7,1t7 y)- 
CEGPStr(GSstr)- 
DrawString (Ser); 
MoveTo (230, 200 + (1*15) ); 
if (i==2) 

SPrintft (&Sstr, "bh pe=c- ie, ee, 
else 

SPLinti (Astrj72 92  —=s—-7 2 tee 
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i 


a 


si 


7, 


(1*15) se 


ah 


{ 


CLOEPSEECEStr); 
Buawst ring (Str) ; 


/* kaekk kkk kkk kkk kkk kK KK MO hex onLy KK KKK KKK KKK KKK KK KKK KKK KKK KK KK x / 


mic KKK Kee A KKK KAA KA KKAKAKAXKKKAKKKKKEKKAKEKKKKKKKRKKEKKKKKKKEKKKKKK EK 


MO DrawElt : writes orb elems into boxes for MO DrawALL() 
cme KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KR KK KER KKK KKK KEKE KKK KEKE KKK x / 


void 
MO DrawElt (row, col, str) 
int row; 
eye Col; 
char ers de Tory 
centered; 


ert 


centered = StringWidth(str) /2; 
een (4 (COl—1) *BOX H) + (70/2) -— centered), (row*BOX_V) -3); 
DrawString (str) ; 


/* kkk Kk KKK KK KK KK KKK KK KKKEK MO DrawElt kak keke aK KK KK KKK KKK KKK KKK KKK KEK x / 


[RKKKKKKKKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK RK KKK KKK KK KK KR KK 


MO DrawALL : common display routine for all graphics windows 
KaKKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KEK =f 


void 
MO DrawALL( orbitinfo, theWind) 
SeoitiInfo oyig cpl cola ielr, 
WindowPtr thewWind; 
{ 
Rect timeRect; 
Rect eraser; 
BtcZ55 timeStr, str; 
Angle a, mean_anom; 
int tLe 3) 6 


timeRect = theWind->portRect; 
timeRect.left = 5; 
timeRect .bottom = timeRect.bottom - (SBarWidtht1) ; 
timeRect.top = timeRect.bottom - (SBarWidth); 
timeRect.right = timeRect.right - (SBarWidth) ; 
if (timeRect.right > 90) 
timeRect.right = 90; 
EraseRect (&timeRect) ; 


eal 


MoveTo (timeRect.left + 1, 
IlUTimeString (prefer.time, 


timeRect.bottom - 1); 


TRUE, timeStr) > 


DrawString(timeStr) ; 


PenSize(2, 2); /* Draw in heavier lines « / 
for (j=0; 3<3; j = j+1) /* Draw boxes around) thewer see. x / 
{ 
MoveTo (0*BOX_H, j*BOX_V); 
LineTo (6*BOX Hye a SOx); 
} 
for (i=0; 1i<7; i = i¢1) 
{ 
MoveTo (i*BOX_H, 0*BOX_V); 
LineTo (1*BOX_H, 2 BOK) 
} 
PensSize (ll) /* Rest to old PenSize x / 
TextSize (9); 
MO DrawEle(1, 1, “\psemimagor) | 
a = gl_gorba(orbitinfo.orbitdata) ; 
SetRect (&eraser, 2, BOX _V+2, BOX_H-1, 2*BOX V-1); 
if (prefer.std_units == 0) /* métricainsuts =) 
SPrintt (str, (si. be eke a. )e: 
else if (prefer.std_units == 1) 
Sprintf (4str, “3=6.3f£ BlIRe 79d, 6376 am 
/* canonical units i 


CroPstr(&str); 
EraseRect (&eraser); 


MO DrawElt (2, 


MO_DrawElt (1, 
Sprintf (€scr, 


CYOPSer(ssen); 


MO DrawElt (2, 


MO DrawEit (1, 
sprintf (&str, 


CroPstr(&str); 


MO DrawElt (2, 


MO DrawElt (1, 
SDPEINCE (6str, 


CroPstr(&str) > 


MO DrawElt (2, 


MO DrawElt (1, 
Sprintf (aster, 


CroPstr(&Str) > 


MO DrawElt (2, 


MO DrawElt (1, 


il, (her *) ser): 

2, “\pECCent rica y |= 

"$-7.5£", gl _gorbe (orbitintoe erst cedar 4) me) e, 
2, (Chaz ~)st2)- 

37 '\olnclination) 

"$-7.32°", cv_gangd(gl_gorbi(orbitinfo orbitdar sme 


34 (char =) str); 


4, "\pArg of Perigee") ; 
"S-7.1£°", cv_gangd(gl_gorbp (orbitinfo.orbitddta) eee 
4. (char ~*~} Sstey., 


5, (“\plhong.soteaAsnas 
"$-7.1£°", cv_gangd(gl_gorbl (orbitinfo .orbieda cay ee 
5, (chars) cer 


6, "\pMean Anomaly") ; 
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mean _anom = cv_gangd( gl_gorbm(orbitinfo.orbitdata) 
+ qi dmean (a) —* "preter time ); 
mean _anom = fmod(mean_anom, 360.0); 
Perimet (astr, "s-7.1£°", mean arom ) ; 
eeEOrstr(é&str); 
SetRect (Seraser, 5*BOX_H+2, BOX V+2, 6*BOX_H-1, 2*BOX_V-1); 
EraseRect (&eraser) ; 
MOeDrawElt(z, 6, (char *)str); 


/* KKK KKKKKKEKEKKEKKEKEKEKEKEKEK KH MO DrawALL KEK KKEKKKK KKK KEKE KKK KEKE KKK KKK KKK * / 


[RRR KKKKK KK KKK KKK KKK KEKE KK KK KKK KEKEK KKK KKK KEKKEKKKKEKKKKKEKKKKKKEKKKK KKK KK 


MO DrawIJK : draws orbit in IJK coord system 


KKK KK KKK KKK KKK KKK KKK KEKE KEKE KKK KKK KKK KKK KKK KKK KKK KK KEKE KKK KKK KKK KEKE KEKE KK * / 


void 
MO DrawIJK( orbitinfo, theWind) 
Srebitinfo Seo Elunto, 
WindowPtr thewind; 
{ 
Static Rect dstRect = { 90, 124, 134, 168 }; 
Rect rj; 
cole y center, z center; 
double ijk_scale; 
double inplane radius; 


y_ center = 90 + ((84-40)/2); 
mecenter = 124 + ((68-24)/2); 
ijk_scale = (44.0/2.0) / 6378.0; 
/* pixels/km 7 
/* Erase old view first , 
CopyBits (&globePics[orbitinfo.lastview], &(theWind->portBits), 
& ((globePics [orbitinfo.lastview]).bounds), &dstRect, srcXor, NIL); 
me( (prefer .plotting) ) 
{ 
Oorbitinfo.lastview = (orbitinfo.lastviewt1l) % 3; 
/* Now draw new one ay 
CopyBits (&globePics forbitinfo.lastview], &(theWind->portBits), 
& ((globePics [orbitinfo.lastview]) .bounds), 
SGstRect, srexor, NIL); 


— 


if (prefer.showaxes) 
{ /* draw the z axis x) 
MoveTo(z center, y center) ; 
LineTo(z center, y center - 30); 

/* draw the y axis ay 
MoveTo(z_ center, y center ); 
LineTo(z center + 30, y center ); 

/* draw the x axis x / 


ie 


MoveTo(z Center, = yacencemar 
LineTo(z center -21, y_ center +26 ); 


inplane radius = orbitinfo.ijk.y * Gro teemeee aoe, 
+ orbitinfo.ijk.z * Grbltinicewspeec. 
if ((inplane radius > (6378.0*6378.0)) |! (cerbitiniem@ijk seme 
Switch (prefer.draw_method) 
{ 
case 0: /* dots only xf 
r.top = y_center - MO trunc (orbitiniolvijk. Zz ~)tgeece oem 
r.left = z_ center + MO trunc(orbitinio.1ijk.y * f9keseaeeu 
re DOlEem Peep eieo 
r.rignt = 2 vlebe aes., 
FillOval(ér, black): 


| 


oN 


break; 
case 1: /* lines only xf 
if (preter. firsts ploes! = FRUE) 


{ 


MoveTo(z_center +MO trunc(orbitinfo.last_ijk.y *ijk scaveuw 
y_center -MO trunc(orbitinfo.last_ijk.z *ijk scaveue 

LineTo(z_ center +MO trunc(orbitinfo.1jk.y * ijk scalem 
y_center -MO_trunc(orbitinfo.ijk.z * ajkiseavoue 


} 


break; 
case 2: /* lines and dots x / 
if (preter. first plot-!— TRUE, 


{ 


MoveTo(z center +MO trunc(orbitinfo.last ijk.y *1jki)seate@ 
y_center -MO trunc(orbitinfo.last_igkez *ijkeSscateee 
r.top = y_center - MO trunc(orbitinfo.ijk.z * ijk Seale 
r.left = z_ center + MO trunc(orbitinfo.ijk.y * a7 keseaues 
LineTo(r lert, cr stop) 
ri tOpa= o.oo. 2, 
/* center the dot ws // 
r.Ddottom — E.top tase 
r,.leftt = r. left =e2-; 
/* center the dot a 
reright. =) 5. lere. es 
Filloval(ézr, black); 
} 
else /* just draw a dot *y, 
{ 
r.top = y center - MO trunc(orbitinfo.ijk.z * ijk Seale 
Yr. DOCCOMY="2-Cop ites 
r.left = z center + MO trunc(orbitinfo.ijk.y *ijk Sscavejmas 
menignts= sf .lerLe 1 os. 
FillOval(é&r, blaee 


break; 
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} /* KEK KKK KKK KKK KKK KKK KKK MO DrawlJK KKK KKK KEK KKK KK KKK KKK KKK KKK KKK x / 


RS ake I KK KR RK KK KKK ERK AK KEKE KEKE KE KE KEKE KKK KKK KKK KKK KK 


MO DrawPQW : draws orbit in PQW coord system 


KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK x / 


void 
MO DrawPQW( orbitinfo, theWind) 

@roitin£o GrOlTeIneo, 

WindowPtr theWind; 
{ 
Static Rect globe = 

{ PQW X-15, PQW Y-15, PQW X + 15, 

Rect globe_edge; 
Rect er, 
double pawescate — 15. 0/6378 .0; 


/* pixels of radii /km 


MoveTo(10, 44); 
DrawString("\pPQW Graphic view") ; 
FillOval(&globe, gray); 
mecooe edge = globe; 
insetRect (&globe edge, -2, -2); 
PenSize(2, 2); 
PrameOval (&globe edge) ; 
Bemotze(l, 1); 
if (prefer.showaxes) 
{ /* draw the y axis 
Povelo(POW Y, POW X-50 ); 
LineTo(PQW_Y, POW X+50 ); 
/* draw the x axis 
MoveTo(PQW Y-100, PQW X ); 
LineTo(PQW Y+50, PQW X ); 


Switch (prefer.draw_method) 


{ 


case 0: /* dots only 


m= cOp — POW X ~- MO trunc(orbitinfo.pqw.y * pqw scale); 
meeert = POW Y + MO trune(orbitinfo.pqw.x * pqw scale); 


meepottom = r.top + 3; 
r.right = r.left + 3; 
FillOval(&r, black) ; 


break; 
case 1: /* lines only 
if (prefer.first plot != TRUE) 


{ 


MoveTo (PQW_Y + MO trunc(orbitinfo.last_pqw.x * pqw scale), 
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PQW y + 15 


a, 


=f 


aes 


a 


“a 


} 


POW X - MO trunc(orbitinfo.last pqw.y ~ paqweseal— mum 


LineTo(POW Y + MO trunc(orbitinto.pqw. = = paqweseauar 
POW X - MO trunc(orbitinfo.pqw-y * pawiseal—. man 


break; , 
case 2: /* lines and dots * / 
if (prefer .first plore =. t.uUe 
{ 
MoveTo( PQW_Y + MO trunc(orbitinfo.last_pqw.x * pqw scalejy 
POW X - MO trunc(orbitinfo.last_pqw.y * paw scalojmam 
r.top = POW_X - MO trunc(orbitinfo.pqw iy * pawicealoe 
r.left = POW_Y + MO trunc(orbitinto.pqw.x * pqwescalem 
LineTo (se. lest, 2c ep)., 
r.top = r.top - 2; /* center the dot x / 
Er. DOCtom-= mtorr ss. 
r.left = r.left - 2; /* center the dot ay! 
BorlgQnt = ro letetso: 
FillOval (4£r, black); 
} 
else /* and draw a dot 7 
{ 
r.top = POW X - MO trunc(orbitinfo.pqw.y * paw iscale)iaueee 
E.DOELOR =] bse Op ata: 
r.left = POW Y + MO trunc(orbitinfo.pqw.x * pqw scale) aaa 
e. Lagntr= £.tekter. 37 
Prlloval (&ér,a5 lack); 
} 
break; 
} 
} /* Ka KK aa KKK aK KKK Kha KKK KK MO DrawPQW kak Kea KKK KKK KKK KKK KK Kha KKK Khe KKK x / 


[A Fe Fee FR IEF I RI I IEF IE I IE I IE II IE I IE IIE II IE IIE III II I FOI FOIE IOI IE IOI IOI I IIE IIE IO I He Fe 


MO DrawGEO : draws orbit in GEO coord system 


> ii, tir ie, a, a, i, ie, i ae, ee, ie, ie, ae a ae, ea ae ee, a a, ee ie ae ae a, a, ae oe a a, a, a, oe a a a eae ie, i ee, ae ae oe, ee, ee a, ee, ee, oe xf 


void 
MO DrawGEO( orbitinfo, theWind) 
Orbiltince GrOMEanto; 
WindowPtr theWind; 
{ 
Static Rect mapRect= {60, 10, 60785, 104208); 
/* (160+9) /2=85, 614/2=208 
ED gia xXpOS, Yypos; 
double pqw_scale= 208.0/360.0; 
/* pixels /degree long & lat 
double lat, t6n-: 
Rect cr; 
babe ae 
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<7 


a 


MoveTo(10, 44); 
DrawString("\pGEO Graphic view"); 
FrameRect (&mapRect) ; 


if (prefer.showaxes) 
{ 
for (i= 1; 1<12; i= itl ) 
{ /* draw lines of longitude 
MOOS! —slsi2067/ 12) + lt; 
if (1!=6) 
PenPat (gray) ; 
MoveTo(xpos, 60); 
iene TO(scoos, 60765—L)); 
te (il=G6) 
PenNormal (); 
} 
for (i= 0; i<67ea= i+l1 ) 
{ /* draw lines of latitude 
if (1!=3) 
PenPat (gray); 
ypos = i*(85/6) + 60; 


MoveTo (10, YPpos) ; 
LineTo(10+208-1, ypos); 
1£ (1!=3) 


PenNormal (); 


} 


PenNormal (); 


lat cv_gangd (orbitinfo.geo. latitude) ; 
lon cv_gangd(orbitinfo.geo.longitude) ; 
1f ( (0.0 <= lon) && (lon <= 180.0)) 
xpos = (lon * pqw_scale) + (10 + 208/2); 
else if ((180.0 < lon) && (lon <= 360.0)) 
mpes — ((lon-180) * pqw scale) + 10 ; 
else 
xpos = 0; 
Bees — ((90-lat) * pqw_ scale) + 60; 


ll 


-top = ypos -2; 

MeoccCOm = ypos +2; 
.left = xpos - 2; 
Setcht = xpos + 2; 


oe Se 


Peiteval(&r, black); 


“e 


ey 


/* KAKKKKKKKKKKKKKKKKKKKK MO DrawGEO K*¥*KKKKKKKKKKKKKKRKKKKKKKKKKKK * / 


[KKK KKK KKK KR KKK KK KR RK KK RK RK RR KR KR I I II ke 


ee 


MO MaintainPlot : updates plotting in each orbit window 
KKK KEK KKK KEKE KKK KKK KKK KKK KEK KK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KK KKK x / 
void 

MO MaintainPlot( ) 

{ 


Rect contentRect; 
WindowPtr theWind; 
Orbit inte OGG d cairo. 
Jong anit scaling;/* time compression scaling factor * / 
long, nt increment;/* incremental time since last look x/ 
GrafPtr savePort; 
RgnHandle tempRgn; 
Angle eccen_anom;/* New E, after updating sat pos x / 
scaling = 60*60/prefer.time_comp; 
/* numticks in minute * compression ay 
increment = ((TickCount() - prefer.elapsed_time) /scaling); 
if ( incrament < prefer.draw_incr) 
return; /* Not enough time elapsed yet 7 


prefer.time = prefer.time + increment*60; 
/* convert into wall clock seconds // 
if ((prefer.plot_ duration == plONE) 
&& (prefer.time > prefer.stop time) ) 


SysBeep (2); /* notify user that we are */ 
preter.plotting = FALSE; /* out of time - stop ploeeingg x / 
prefer.changes = YTRUE;/* Update the menu items i) 
return; 
} 
prefer.elapsed time = TickCount(); 
/* reset the timer for next update ss 
/* Determine Eccentric Anomaly xy 
GetPort (&savePort) ; /* xx*xkkk*e* UPDATE ALL WINDOWS ******x** */ 
theWind = MC FixrstWindow (); 
while (theWind != NIL) 


{ 
SetPort (theWind) ; 
/x* use content rgn bounding box x / 
/* to mask out scroll bar areas 7 
tempRgn = ( (WindowPeek) theWind) ->contRgn; 
contentRect = (*tempRgn) ->rgnBBox; 


contentRect.bottom = (contentRect.bottom - contentRect.top) 
- SBarWidth; 

contentRect.right = (contentRect.right - contentRect.left) 
- SBarWidth; 


contentRect.top = 0; 
contentRect.left = 0; 
ClipRect (€contentRect) ;/* Set it in Global coords it! 


178 


orbitinfo = (OrbitInfo *) (( (WindowPeek) (theWind))->refCon) ; 


eccen_anom = kl_gecca(& (orbitinfo->orbitdata), 
(orbitinfo->orbitdata) .epoch + prefer.time ); 
Psa l | kolororttaito--orbitdata, «(orbitinfo->1jk) 9) 


/* get position in IJK Coords x / 
cs gpqwe(orbitinfo->orbitdata, &(orbitinfo->pqw) ); 
/* get position in PQW Coords x / 


Semageoe (Orbitinto--oLrbitdata, prefer.time/3600.0, 
& (orbitinfo->geo) ); 
/* get position in Geographic Coords x / 


1f (prefer.showmap) /* Add each orbit to Map Background x / 
MO DrawMapUpdate(*orbitinfo, mapWindow) ; 


if (orbitinfo->textonly) 
MO TextOnly(*orbitinfo) ; 
else 
{ 
MO DrawALL(*orbitinfo, theWind) ; 
Switch (orbitinfo->coordinates) 
{ 
ease: TIKI COORDS: 
MO DrawIJK(*orbitinfo, theWind) ; 
break; 
case PQW_ COORDS: 
MO DrawPQW(*orbitinfo, theWind) ; 
break; 
case GEO COORDS: 
MO DrawGEO(*orbitinfo, theWind) ; 
break; 
} ~/* endswitch * / 
} /* endelse */ 
orbitinfo->last_geo.altitude = orbitinfo->geo.altitude; 
Oorbitinfo->last geo.latitude = orbitinfo->geo.latitude; 
Serbitinto->last geo.longitude = orbitinfo->geo. longitude; 
Peeicint£o->last ijk.x = orbitinfo->1jk.x; 
Saoitanfo->last ijk.y = orbitinfo->1jk.y; 
Seoltinto->last 1jk.z = orbitinfo->1jk.z; 
Bebitinto-~>last pqw.x = orbitinfo->pqw.x:; 
orbitinfo->last pqw.y = orbitinfo->pqw.y; 
empitinito—->last pqw.z = orbitinfo->pqw.z; 
ClipRect (&(screenBits.bounds) ); 


/* Reset the clipping rectangle * / 

theWind = MO NextWindow(theWind) ; 
} /* endwhile x / 
SetPort (SavePort); [* *x*xxk*xk ENDUPDATE ALL WINDOWS ****x**x c/ 
prefer.first plot = FALSE;/* terminating first plot sequence x 


/* KEK KKKKKEKKKKKKKKKKKKK MO Maintainplot KEKE KKKKKKKKKKKKKKKKKKK KK x / 
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[RKKKKKKKKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KR KK KR KK KKK KK KK KK Kk kK KK KK KK 


FILENAME MacOrbitseerc 
DESCRIPTION printing interface for MacOrbitsae 
ENVIRONMENT Macintosh SE 1Mb 

Light Speed? "ea 2 
AUTHOR Captain Kenneth L. BEUTEL USMC 

(Portions copyright Think Technologies) 
ADVISORS Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
REMARKS uses screendraw routines in MacOrbits.pl.c 
VERS ION O59. 4376725) 
CHANGES 3/6/88 Formatted for MacWrite conversion 


KIKKKKKKKRKKKKRKEKKKKKKKE KKK KKKEKKKKEKKEKKEKKEKEKKKKKEKKEKKKEKKKKKKKKRKEKKEKKXKEKK Ae x / 


#include "QuickDraw.h" 

#include "MacTypes.h" 

#include "FontMgr.h" 

#include "WindowMgr.h" 

#include "MenuMgr.h" 

fanclude “TextEdie hn” 

#include "DialogMgr.h" 

#include "EventMgr.h" 

#include "DeskMgr.h" 

#include "FileMgr.h" 

#include "ToolboxUtil.h" 

#include "ControlMgr.h" 

#include "PrintMgr.h" 

fanclude =stdie. no 

#include "“LightSpeed Disk:Thesis C f:StdLib.h" 

#include "“MacOrbits.h" 

#include “"MacOrbits proto nh! 

extern Preferences prefer; /* preferences for how things look x7 
1 ao Sa iia Sa eel “20 <a Rl a) el a P ReloNe? fale. VARIABLE S Xxx x/ 


Static THPrint 


hPrint = Nis 


[RKKKKKKKKKK KKK KKK KKK KAKA K KKK KKK KKK KR KKK KK KA K KKK K KKK KKK KR K KKK KKK KK KK KKK 


MO CheckPrintHandle : 


fetches a print handle if one doesn't exist 


kkk kkk kk kkk kk kk kkk kkk kk kk Kk KKK KR KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK K ay! 


Vo1d 


MO CheckPrintHandle() 


{ 
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if (hPrint==NIL) 
PrintDefault (hPrint = (TPrint **) NewHandle( sizeof( TPrint ))); 
/* wm KKK KKK KKK KKK KKK KKK MO CheckPrintHandle KKK KKK KK KKK KK KKK KK KKK * / 


SIRE ena eh herr RK Re EERE ERK REE KAA RRR RK RRR KR KKK KK 


MO PageSetUp : call the std page setup dialog 


KK KK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KEKE KKK KK KKK KKK KKK KK KKK KKK KKK x / 


vol1d 


MO_PageSetUp () 


{ 


char errormsg [40]; 


PrOpen () ; 
mir (PrBrror () ) 
{ 
Sebimece(errormmsg, "Sorry, a printer error = td", PrError()); 
CtoPstr(&errormsg) ; 
MO Generic(errormsg, "\poccurred."); 
} 
else 
{ 
MogecheckPrintHandle () ; 
meotlDialog (hPrint) ; 
PrClose(); 
} 


/* RHEE KKKKEKKKEKKKKKKEK KEK K MO PagesetUp KREKKKE KKK KKKKKKKEK KKK KKK KKKKK x / 


[KH He I I He I I FI I III II III I III I III II FI III II I I IE IA AC I IE 


MO PrintOrbitText : print the orbit data 


RRR KKK KKK KE KK KKK KEK KEKE KK KKKK KK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KK KKK * / 


void 
MO PrintOrbitText (theWind) 
WindowPtr thewWind; 
{ 
GrafPtr savePort; 
TPrstatus Brotatus, 
int copies; 
char errormsg [40]; 
TPPrPort PEINGPOrL; 
Seore Info Veja) ol aa guze ys 


PrOpen () ; 

MO CheckPrintHandle(); 

meme re rror() ) 

{ 
Sprintl(errormsg, "Sorry, a printer error = %d", PrError()); 
mEOorstr(&errormsg) ; 
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MO _Generic(errormsg, "\poccurred."); 
} 
else if (PrJvobDialog(HPrint, = — oO 
{ 
MO > Wale), : 
GetPort (&savePort) ; 
PprintPort = PrOpenDoc(hPrint,, NIL, Nie 
TextFont (geneva) ; 
TextSize(10); 
PrOpenPage (printPort, NIL); 
orbitinfo = (OrbitInfo *) (( (WindowPeek) (theWind) )->refCon) ; 


tf (Orbiltinro--texton ty) 
MO ~ TextOnly (“crbitineom, 
else 
{ 
MO _DrawALL(*orbitinto, (WindowPEr) = pr imerer te: 
switch (orbitinfo- -age@rdinates) 
{ 
Case IgKRCOORDS. 
MO DrawlJK(*orbitinfo, (WindowPtr) printPort); 
break; 
case PQW_COORDS: 
MO DrawPQW(*orbitinfo, (WindowPtr) printPort); 
break; 
case GEOUCCORDS :; 
MO DrawGEO(*orbitinto, (WindowPtv)  printeern) 
break; 


} 


PrClosePage(printPort) ; 
PrCloseDoc(prinePert); 


for (copies=MO_ HowMany(); copies>0; copies = copies -1) 

{ /* image the print and then x/ 

PrPicFile( hPrint, NIL, Bis, Nib, sop reseamucme 

} ° 
SetPort (savePort); 

} 

PrClose(); 


SetCursor( Garrow )-: 
} x KKK KKK KKK KKK KKK KKK KKK MO PrintOrbitText KKK KKK KKK KKK KKK KKK K:K x / 


[OK KK KK FI i II IK IKI I RK IO I IO KO tO kk kk ko kk RK 


MO_HowMany : get the number of copies requested 
KKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK xf 


int 
MO HowMany () 
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Beeurn( ((**hPrint) .prJob.bJDocLoop==bDraftLoop) ? 
GMPrimeyeorgoo.aCopres : 1 ); 
/* KKRKKKKKEKKKKEKKEKKKKKKEEK MO HowMany KKK KK KEK KK KKK KKK KKK KK KKK KKKKEKK x / 
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[ERK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KK KKK KKK KKK KK KK KKK KKK KK KK KR KK 


F ILENAME MacOrbits ueee 
DESCRIPTION utilities £6r MacOroueeae 
ENVIRONMENT Macintosh SE 1Mb 

Light Speed "Gay Zee 
AUTHOR Captain Kenneth L. BEUTEL USMC 
ADVISORS Prof. Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
REMARKS contains misc interface functions 
VERSION 0.9 (3/6/88) 
CHANGES 


3/6/88 Formatted for MacWrite conversaead 


KR KEKE KKK KKK KKK KKK KK KEK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 


#include 
Fane Lucde 


extern 
extern 


Cursor 


"OULeCKDraw.h 
"MacTypes.h" 
“EP OnEMGr. hn.’ 
"WindowMgr.h" 
"MenuMgr.h” 
"TCXCEGiLe nh: 
"DialogMar -h: 
PEVenteMoi oi 
"DeskMgr.h"” 
"rileMgo:r fh” 
MYOOLUOSUEIL. he: 
UConero Mgr on” 
StGa1Onn 


"LightSpeed Disk:Thesis C f:StdLib.h”" 


 MacOrpi is. h- 
“MaCOLrbDiGSs-proOte.n 


watch; 


Preferences prefer; /* preferences for how things look xf 


[RRR KKK KKK KKK KKK KKK KKK KKK KR KKK KKK KKK KK KKK KR KK KR KKK KKK KKK KKK KKK KKK KK KK 


MO Wait 


display the wait cursor (used for long operations) 


KEK KK KEK KKK KKK KR KKK KKK KKK KKK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK K KKK KKKK * / 


Void 


MG Walt (} 


{ 


SetCursor( &watch ); 


} thes KEKE K KEKE KK KEKE KKKKKEKEKK MO Wade KK KKK KKK KKK KKK KKK KKK KKK KK KKK KK x / 
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ee re eg nee Re EK Ee KEE KKAKKEK KK AKKAKKRKXE 


MO pstrCopy : copies one Pascal string from pl to p2 


KKK KKK KK KKK KK KKK KKK KKK KKK KR KEKE KKK KKK KKK KEKE KKK K KEK KEKE KKK KEK KKK KK KKK KKK x / 


void 
MO pStrCopy( pl, p2 ) 

char ol, ops f 
{ 
register int len; 


Hen = *p2++ = *pl++t; 
while (--len>=0) *p2++=*plt+; 
/* KEKKKKKK KKK KR KKK KKK KKK MO pStrCopy KKK KKK KKK KK KKK KKK KKK KKK KK KKK x / 


[RRR KKKKK KKK KK KK KKK KR KR KR KK RR KK KR KK OK kK KK kK eK eK 


MemeoercConcat ; concatenates pascal string p2 behind pl and 


GetvUrns PELE EOVEeSuI. Out. 
KKK KKEKKKKKKK KKK KKK KKK KK KKK KKK KKK KKK KK KEKE KE KKK KKK KK KKK KKK KKK KKK KKK KKK * / 


void 
MO pStrConcat( pl, p2, out ) 
SerZz55 DileoOc, Out, 
{ 
register int an 
ant lenl, len2; 
char temp [256]; 
lenl = p1(0)+1; /* length including length byte oy 
HenZz = p2[(0)+1; 
memeti=O; i<lenl; i = it+1) 
temp[i}] = pl(il; 
for (i=l; i<len2; i = itl) 
temp[((leni-1) +i] = p2[i]; 


temp[0] = lenl + len2 - 2; 
MO psStrCopy(temp, out); 


/* KRAEKKKKKK KK KKK KKK KKK MOT Ppoerconcat KR KK KKK KEK KKK KKK KKK KKK KKK KKK x / 


[KK KKK KK KK I KK KKK KO IO III KKK OK KK KOK KK kk kkk 


mMemeotrzNum : converts pascal string str into a floating point 
KKK K KKK KK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK * / 


double 


MOmpotrZNum( str ) 


{ 


Sir 55 *Str; 


eTite items, next; 
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double after; 
double result; 
char EeEMptZo Gl 


MO _pstrCopy (str, temp) ; 
if (temp[(0] == 0) 


return 7 00- 


result =0.0; 


next = 1; 
while ((temp(next] != '.') && (next<=temp([0])) 
{ /* numbers leading decimal point x / 


if ((temp(next]>='0') && (temp(next]<='9')) 
result = result * 10.0 + (temp([next]-—"0!); 


else 
return(-1.0); 
next = next + 1; 


if (next<=temp([0]) 


{ /* either done or a decimal pt. x / 
if (temp(next] != '.') 
return (<1 .0) ; 
else /* not done process numbers after dec ef! 


{ 
next = next + 1; 
after = 10.0; /* tenths is first pos after the dec pt. */ 
while (next<=temp([0]) 
{ 
if ((temp(next]>='0') && (temp{next]<='9')) 
result = result + ( (temp(next]-'0') / after ); 
else 
return (-1.0); 
next = next + 1; 
after = after * 10.0; 


/* shift over to next decimal position gis 


return( result ); 


} y es KKK KKK KKK KKK KKK KK KKK MO_pStr2Num RK KKK KKK KKK KKK KKK KKK KKKKKKKEK x / 


[KK KI FI IR IR FR I II I I TEI I III IOI ITO I IO KK KK KKK 


MO pStr2Julian : converts pascal string Str into vag etaeeeae 
KKK KK KK KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKK KKK x / 


double 
MOPsstezJUl tan ( Stra) 
Str255 RS tre 
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{ 

nt 
double 
double 
ehar 


next; 
month, day, year; 
result; 

temp [256]; 


MOnpotrCopy (str, temp) ; 
1f (temp[(0] == 0) 
return (—1.0); 


month = 0.0; 

day = 0.0; 

year = 0.0; 

next = 1; 

while ((temp[next] != '/') && (next<=temp[0]) ) 


{ 


/* numbers before first slash 


1f ((temp[next]>='0') && (temp[(next]<='9')) 


else 
return(-1.0); 
next 


month = month * 10.0 + (temp[next]-'0'); 


= next + 1; 


if (temp[next] != '/') 
return (-1.0); 


else /* not done process numbers after slash 
next = next + 1; 
while ((temp[next]) != '/') && (next<=temp[0]) ) 
{ /* numbers between slashes 
if ((temp[next]>='0') && (temp[next]<='9') ) 
day = day * 10.0 + (temp[next]-'0'); 
else 
eeturn(=1.0) ; 
next = next + 1; 
} 
if (temp(next] != '/') 


return(-1.0); 


else /* notdone process numbers after slash2 
next = next + 1; 
while ((temp[next] != '/') && (next<=temp[0))) 
{ /* numbers after slashes 
1f ((temp[next]>='0') && (temp[next]<='9"')) 
year = year * 10.0 + (temp [next]-'0'); 
else 
BecuErn(—1.0)> 
next = next + 1; 
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a7 


a 


ais 


result = tl_gjuld(month, day, year); 
return ( resulew):, 


/* KKK KKK KKK KKK KKK EK KK KEK MO pStrZgu lian KKK KKK KK KKK KKK KKK KKK KK KKK x / 


[KK I He II TI IKI I II I II II IO I IO IO IOI IO I I IO I Ik kk 


MO Generic : 2 Pascal strings displayed in a 1 stage Alert 
KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK x / 


void 


MO Generic( sl, s2 ) 


Ser255 sl, s2; 


ParamText ( Sil, s2,"\o", oa Dae 
Alert ( GenericAlertID, OL ); 


/* OR kK OR kek MO Generic KOK KK KK KKK KK KKK KKK KKK KKK KKK x / 


[KK KK KK I IK I I I I KK IK KKK KK I I kt keke tee ee 


MO OutlineButton : outlines a button round rect with a heavy line 
KKK KKK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKKKKKEKKK x / 


void 

MO OutlineButton( r, theDialog ) 
Rect Ey 
DialogPtr theDialog; 

{ 

PenState ps; 

Rect loca ik; 

GrafPtr Pore, 


GetPort (&port) ; 
SetPort( (GrafPtr) theDialog); 
Local = 2: 
GetPenState(&ps) ; 
Pensize(s, 3); 
InsetRect (&local, -4,-4); 
FrameRoundRect (&local, 16, 16); 
SetPenState(&ps) ; 
SECEPOLPENDOEL) > 


/* KKK KKK KKK KKK KKK KK KK KK MO OutlineButton KKK KKK KKK KKK KE KKK KKKK KKK x / 


[I I I I I II I III I II II II III II II II II II I II I I I IK I ke Ie tee i He 


MO Pause : stop everything for x seconds 
KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KK KKK KKK KK KKK KKK KKK x / 


dole! 


MO@Pause({ x-) 
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{ 


aac a 


tong int MumMercks, fLinalTicks; 


{ 


ant 


numTicks = x * 60; 
Delay(numTicks, &finalTicks) ; 


Has KK KKK KKK KKK KKK KKK KKK KKK KK MO Pause **** www KKK RK kK KK xo), 


[KKK KKK RK RR KR KR KK KR Rk Kk KK kkk ok 


MO trunc : trade a double in for an integer 
KKK KKK KKK KK KKK KK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK * / 


alge 
meeerunc{ x } 
double x; 
result; 
result = x; /* convert to integer type x / 


} 


return( result ); 
/* KEK KKK KKK KKK KKK KKK KKK KKK MO ELrunc KK kK KKK KKK KKK KKK KKK KKK KK KKK * / 
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[KKK KK KKK KKK KKK KK KKK KK KKK KKK KKK KK KKK KK KK KKK KKK KKK KKK KK KKK KK KK KK KK KKK KK 


FILENAME 


DESCRIPTICN 


ENVIRONMENT 


AUTHOR 


ADVISORS 


REMARKS 


VERS ION 


CHANGES 


MacOrbits.wm.c 

window manager interface for MacOrbits.c 
Macintosh SE 1Mb 

Light Speed" 3 GaZzea> 

Captain Kenneth L. BEUTEL USMC 
(Portions Copyright Think Technologies) 
Prot: Dan Davis 

Prof. Dan Boger 

Naval Postgraduate School, Monterey CA 
contains window drawing functions 

On 9) (376733) 


3/6/88 Formatted for MacWrite conversion 


KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KEK KK KKK KKK KKK KKK KKK KKK x / 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#include 


#include 
#include 


extern Preferences 
extern BitMap 
extern MenuHandle 


Point 


static WindowPtr 


"QuickDraw.h" 
“MacTypes.h" 
Ue OnMGMe eh. 
"WindowMgr.h" 
"MenuMgr.h"” 
"TextEaQLt.ia- 
"Dad logMar. 
"EventMgr.h" 
"DeskMgr.h"” 
Pew leligim sn. 
eTOOIDexUEII en 
“Cont .oiMar. h 
"“sta1o7n” 


"Lightspeed Disk:Ihesis © {:Sedimb-u. 


MMacOrbits. hh” 
"MacOrbats protec -n” 


prefer; /* preferences for how things look x / 
globePics [MAXGLOBES] ; 
myMenus[specialM + 1]; 


theOrigin;/* position to start drawing windows 7 


WindowStorage (MAXWINDOWS] = 


{ NIL, NIL, NiIG7 Net, ae. 


[KK RK KKK KK kk ek ek i ke i ek eke ee kk ke ek ke eke eke ke ke ie ke ke ke ke ke ke ke ek 


MO_CreateWindow 


Create the std window used in program 


KRKKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKKKKKK x7, 


void 
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MO CreateWindow (theWind, slotnum) 


WindowPtr *theWind; 
eke *slotnum; 
{ 
WindowPeek myPeek; 
Sebitinfo Aoi neo; 
ert pay 
SeErZ55 buataStr; 


/* The array WindowStorage holds MAXWINDOWS worth of window pointers. 


once these are used up this function returns NIL to indicate out of 


memory condition. WindowStorage slots may be reused in window has 


been deallocated with MO RemoveWindow(). 

i1=0; 

while ((i<MAXWINDOWS) && (WindowStorage[i] != NIL)) 

{ /* scan for an available slot 
i=itl; 

} 

if ((WindowStorage[i}] != NIL) [| (i==MAXWINDOWS) ) 

{ 
xtheWind = NIL ; /* no available slots 
recurn; 


WindowStorage[i] = GetNewWindow( windowID, NULL, INFRONT ); 
SetPort (WindowStorage[i]);/* allocate window record on heap 
/* create a ptr for orbit stuff and 
Store initial values in it 
Text Size (9); /* Use 9 pt text 
Seoatinito = (OrbitiIinfo*) NewPtr( sizeof (OrbitInfo) ); 


orbitinfo->slotnum = i;/* save the slotnumber for later use 
eeortinfto->dirty = FALSE; 
orbitinfo->newfile = TRUE; 

/* Assume data scurce is not a file 
orbitinfo->textonly = FALSE; 
orbitinfo->coordinates = IJK_COORDS; 
orbitinfo->lastview = 0;/* Current view of spinning globe 


iMmebootring(i, buildStr) ; 
MemestrConcat ("\pWindowStorage#", buildStr, buildStr) ; 
MempoerCopy( buildStr, orbitinfo->test ); 


myPeek = (WindowPeek) (WindowStorage[i]); 
CGD yaDEEEto Gubitestune ile window 
myPeek->refCon = (long) orbitinfo; 
/* return the new WindowPtr and slot no 
WindowStorage [i]; 
1; 


*thewind 
*slotnum 


1s 


a 


alts 


a7 


| 


ae 


ts | 


| 


ay 


a. 


= 


ay 


prefer.changes = TRUE; /* Flag potential changes to menu x / 


/* Shift the window origin down and bring up bottom edge in std way */ 
MoveWindow (*thewWind, WINDOW H+ (145) 4 WINDOW _V+ (1*16), FALSE); 
SizeWindow (*theWind, (WH_MAX-WINDOW_H), ((296-WINDOW_V)-(1*16)), TRUE); 


ClipRect (& (screenBits.bounds) ); 
/* avoid bug from Apple TN #59 x] 


} /* KKK KKK KEKKKKKK KK KKK KK MO CreateWindow KKK KKK KK KKK KKK KKK KKK KKK * ff 


[ ® KKK KK KK KK IK RK KK KO KR KKK KKK IKK IO KR KOK KOK KR IO KOK OK RK RK RK KK RK KR KK RK KK 


MO _isNewFile : Check to see if window's data didn't come from a file 
KKK KKK KKK KKK KKK KKK KEKE KK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK KKKK x / 


pte 
MO_isNewFile (theWind) 
WindowPtr theWind; 


{ 
Orore Into *OrDitinte, 


if ((theWind==NIL) || (!MO_ours(theWind)) ) 
return (FALSE);/* no window so can't come from file x / 


orbitinfo = (OrbitInfo*) (( (WindowPeek) theWind)->refCon) ; 
return (orbitinfo->newfile); 


} /* KEK KKK KK KKK KKK KKK KK MO i1sNewFile KEK KK KKK KKK KKK KKK KKK KKK KKK x / 


[RRR RK RK KK KK KI KK IKK KIRK RIK TOK II TO IO IO TORO IO III IO IK IO I 


MO_isDirty : Check to see if data assoc w/window has been changed 
KKK KKK KK KKK KKK KKK KKK KKK KKKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK x / 


ine 
MO_isDirty (theWind) 
WindowPtr theWind; 
{ 
Orbit into XOrDL Into; 
1f ( (theWind==Nib) (MO ours (thevinc ye 
return (FALSE);/* no window there so it must be clean x / 


orbitinfo = (OrbitInfo*) (( (WindowPeek) theWind)->refCon) ; 
return (orbPtinto—-ciseew oe, 


} /* KKK KKK KEK KKK KK KKK KK KK MO isDirty KERR KEKE KK KKK KKK KKK KKK KKK KKK KKK x / 
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SE een arin i ee A RR REE RAK KERR RAK KR KK KKKKKKKKKKKEKREKKKE 


MO SetDirty : Set dirty bit to indicate window data has been changed 


KKK KK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KK KEK KKKKKEK KKK KKKKEKKKKKKK KK x / 


Vola 
MO SetDirty(theWind, thebit) 
WindowPtr theWind; 
Boolean thebit; 
{ 
Srboitinfo coriowe LnL oO; 
if ((theWind==NIL) {| (!MO_ours(theWind)) ) 
return; /* no window there so it must be clean x / 


orbitinfo = (OrbitInfo*) (( (WindowPeek) theWind)->refCon) ; 
orbitinfo->dirty = thebit; 


/* KEKKKKKKKKKKKKKKKKKEK MO SetDirty KKEKKKKEKKK KK KK KKK KKK KK KKK KEKKKK x / 


[RK KKK KKK KK KK KK KKK KKK KEK KKK KK KKK KK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KK KKK KK 


Memours : See if window is one created by the program 
KKKKKKKKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KEK KKK KKKK KKK KKK KKKKKK x / 


anit 
MO_ours (theWind) 

WindowPtr theWind; 
{ /* Scans through the Window storage list tying to match pointers x / 
ot i 

i = 0; 

while ((i < MAXWINDOWS) && (theWind != WindowStorage{[{i]})) 


if ((WindowStorage[{i] == NIL) || (i == MAXWINDOWS) ) 

return (FALSE); /* No match so not the programs window x / 
else 

return (TRUE) ; /* It is the programs window <7 


/* KKKKKKKKKKEKKKKKKKKKKK MO ours KKK KK KK KK KEKKEKKKEKKKKKKK KK KKK KKK *x / 


[RRR KKK KKK KEK KKK KKK KKK KEK KR KKK KK KK KKK KKK KKK KKK KKK KK KKK KR KKK KR KK KKK KK KR KK KK 


MO AvailWind : Check to see if there is room for another orbit window 
KKK K KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KEK KKK KKKK KK KK KKK KK * | 


Boolean 


MO AvailWind() 


{ 
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int i? 


a = 0; 
while (i < MAXWINDOWS) /* Scan for any available opening... x] 
{ 
if (WindowStorage[i] == NIL ) 
return (TRUE) ; /* if an opening is found returnees one x / 
i=i+l; 
} 
return (FALSE) ; /* if no opening then return false x / 


} /* KR KKK KKK KK KKK KKK KKK KK MO AvailWind KHKKKKKKKRKKKKKEKEKKEKKEXK KX x / 


[KI II FI FI I II I I FI II FOIE FI I II III II I I II IKI IK I I IO I I 


MO _DuplicWind : Does a window already exist by the same name? 
KKK KKK RK KKK KKK KKK KE KKK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK * 


Boolean 
MO_DuplicWind (newname) 
StrZ255 newname; 
{ 
ae a 
SELZO5 windname; 
StLeZoo Str, 
1 = 0; 
while (i < MAXWINDOWS) /* Scan for any Existing windows x / 
{ 
if (WindowStorage[i}) != NIL ) 


{ 

GetWTitle(WindowStorage[i}], windname) ; 

if (EqualString(windname, newname, FALSE, FALSE) ) 

{ 
PtoCstr (&windname) ; 
sprintf(str, "Sorry, the name '%s' is already in use. ", 

windname) ; 

CEoPStrt(estr).; 
MO Generic(str, "\p Please choose another."™); 


return (TRUE) ; /*x if the name is found return true x / 
} 
} 
i<= is 1; 
} 
return (FALSE) ; /* if no opening then return false cs / 


} /* KKK KK KKK KK KKK KKK KKK MO DuplicWind KKK KKK KEK KKK KKK KKK KKK KKK KK cay 


[KKK KKK KR KR RK KK KK KK KK KKK KKK KKK KK KKK KR KK KK KK KK RK KR KK RK KR KK RK KK RK KK 
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MO RemoveWindow : Release storage for window created by the program 
Kom KKK KK KK KKK KK KKK KKK KKK KK KK KKK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KK KKK KKK * / 


void 
MO _RemoveWindow (theWind) 
WindowPtr *theWind; 
{ 
WindowPeek myPeek; 
eh are 
Ser255 St ie; 
o— QO; 
while ((i < MAXWINDOWS) && (WindowStorage[i] != *theWind) ) 
{ 
i=i+i; /* scan until the pointer is found * / 
} 
if (WindowStorage[i]) == *theWind) 
WindowStorage[i] = NIL;/* zap the window from storage oo) 
else 
Beturn ; 


{ 


nt 


Memrostring(itl, stri); 

MemeoecrConcat ("\pOrbit Window ", stri, &stri); 
SetItem(myMenus[windowM]), i + 5, stri); 
DisableItem(myMenus [windowM], i + 5); 


myPeek = (WindowPeek) *theWind; 


DisposPtr (myPeek->refCon) ;/* deallocate ptr for orbit stuff aap 
HideWindow (*theWind) ; 
prefer.changes = TRUE; /* Flag potential changes to menu * 


/* KaKKKKKKK KK KKK KK KKK KEK MO Removewindow KRAKKKKKKKK KKK KKK KKK KKK KK xf 


[i Ke II FIR RK II IIR ROI IIIT III 


MO_HideWindow : hide the window from view 
KEKE KKK KKK KKK KEKE KKK KKK KKK KE KEK KKK KEK KKK KKK KR KEK KK KK KEK KKK KEKE KKEKKK KKH x / 


void 
MO_ HideWindow (theWind) 
WindowPtr theWind; 
aL 
i = 0; 
while ((i1 < MAXWINDOWS) && (WindowStorage[i] '!= theWind) ) 
{ 
i =i +1; /* scan until the pointer is found tf 
} 
if (WindowStorage[i] '= theWind) 
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return; 


HideWindow (theWind) ; /* hide the window * / 
prefer.changes = TRUE; /*x Flag potential changes to menu x / 
} [RR RK RK RIK RK MO HideWindow * ** %% RR RK I RK & / 


[RRR KKK KKK KKK KKK KK KEK KKK KK KKK KK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK KK KKK 


MO ShowWindow : show the window again 
KKK KKK KEK KKK KKK KKK KKK KEK KKK KKK KEK KKK KKK KKK KKK KKK KEKE KK KKK KKK KKK KKK KK * / 


void 
MO_ShowWindow (slotnum) 
Ine slotnum; 


if (WindowStorage[slotnum] == NIL) 
return; 


ShowWindow (WindowStorage[slotnum] ) ; 
SelectWindow (WindowStorage[slotnum]); 
prefer.changes = TRUE; /* Flag potential changes to menu x / 


} [RK IO KK IKKE IKKEK MO ShowWindow * * * KIKI IO I I oe / 


[KR RR KK OK eK KK kK Ok ek kk ek ee kk 


MO FirstWindow : Find any pointer to a window created by the program 
KKK KKK KKK KKK KKK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK * / 


WindowPtr 
MO_FirstWindow() 
{ /* Scans through the Window storage list for lst non empty slot i 
int 168 
i = 0; 
while ((i < MAXWINDOWS) && (WindowStorage[i] == NIL)) 
{ 
= Se es 
} 
if ((WindowStorage[i] == NIL) |] (1 == MAXWINDOWS) ) 
return (NIL) ; /* No match so no program windows left ta // 
else 
return (WindowStorage[i]); 
/* The first program window found ea! 
} /* KKK KKK KKK KKK KKK KKK KKK MO FirstWindow KEKE KEK KKK KKK KKK KKK KKK KKK * 
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eR RAR AAA AA RAKAKKAKAKKKEKKAKKEKKKKKEKKEEKKKKKKKKKKKKKKEKKKKKKKKKKKKKE 


MO UpdateWindow : Handle update event for program windows 
KK KKK KKK KKK KKH KK KKK HK KKK KKH KKK KKK KKK HK KEK KKK KKK KKK KEKE KKK KK KKK KEKE KE KKK x] 


void 
MO_UpdateWindow (theWind) 
WindowPtr theWind; 
{ 
GrafPtr SavePort; 
Rect cy, 
Rect DLOEReCE ; 
@ebitinfo Monmbasta ti Ov 
RgnHandle oldContent; 


GetPort( &savePort ); 
SetPort( theWind ); 
oldContent =((WindowPeek) theWind) ->contRgn; 


r = (*oldContent) ->rgnBBox;/* Get content region bounding box x / 
r.bottom = (r.bottom - r.top) - (SBarWidth); 

Beright = (r.right-r.left) - (SBarWidth); 

meeop = 0; 

meieftt = 0; 

ClipRect (&r); /* Clip the scroll bar areas x] 


BeginUpdate( theWind ); 


orbitinfo = (OrbitInfo *) (( (WindowPeek) (theWind) )->refCon); 
eemorikc (Orbitinfto->orbitdata, &(orbitinfo->ijk) ); 


/* get position in IJK Coords oY) 
Semogpaqwc (orbitinfo->orbitdata, &(orbitinfo->pqw) ); 
/* get position in PQW Coords x / 


cs_ggeoc (orbitinfo->orbitdata, prefer .time/3600.0, &(orbitinfo->geo) ); 
/* get position in Geographic Coords*/ 


mem orbitinfo->textonly) 

{ 
EraseRect (& (theWind->portRect) ) ; 
PemTextOnly {(*orbitinto) ; 

} 

else 

{ 
plotRect = theWind->portRect; 
moeerrcct.top — plotRect.top + (2*BOX _V+t2); 
EraseRect (&plotRect) ; 
MO DrawALL(*orbitinfo, theWind) ; 
switch (orbitinfo->coordinates) 
{ 
ease IJK COORDS: 

MO DrawlJK(*orbitinfo, theWind) ; 

break; 
ease POW COORDS: 


ee 


MO _DrawPQW(*orbitinfo, theWind) ; 
break; 
case GEO COORDS: 

MO DrawGEO (*orbitinfo, theWind) ; 
break; 


} 


ClipRect (&screenBits.bounds) ; 
/* Restore clip to whole screen By 
DrawGrowlIcon( theWind ); 


EndUpdate( theWind ); 


SetPort( savePort ); 
/* KKK KKK KK KKK KKK KKK KKK MO UpdateWindow KKK KKK KKK KKK KKK KK KK KKK K x / 


[KI FI I FF FI FI I FOI FI FI I II III II FI FE I II I II I IO II I I ikke ke 


MO _GrowWindow : Handle growWindow event for program windows 
KKK KEK KEK KKK KEK KKK KKK KKK KEK KKK KKK KKK KKK KK KK KKK KKK KKK KK KKK KKK KKK KKK KKK * / 


void 
MO_GrowWindow( theWind, p ) 
WindowPtr theWind; 
Point Pp; 
{ 
GrafPtr savePort; 
Rect newRect, growRect; 
long theResult; 
Point thePt; 
Boolean Saveprefer; 
Point largest;/* largest area that is not erased a! 


GetPort( &savePort ); 

SetPort( theWind ); 

SetRect (&growkect, 80, 80, WH _MAX-WINDOW _H, screenBits.bounds.bottom) ; 
theResult = GrowWindouw( theWind, p, &growRect ); 

thePt.h = LoWord( theResult ); 


thePt.v = HiWord( theResult ); 
/* The next 3 calls: SizeWindow(), vot 
/* EraseRect(), InvalRect () ey 
/* must come in order specified! a 
/* (Chernikoff Vol.2 Pp.103) x] 
newRect ((*theWind) .portRect) ; 


largest.h = newRect.right ; 
largest.v newRect.bottom ; 


SizeWindow( theWind, thePt.h, thePt.v, TRUE ); 


newRect = ((*theWind) .portRect) ; 
if (newRect.right>largest.h) 
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{ 


newRect.left 


Laagecte.i- a (sobarwidtht) ; 


else 


{ 


} 


newRect.left 
newRect.right = largest.h-1; 


newRect.right- (SBarWidth+1) ; 


EraseRect( &newRect ); /* only erase increased rect to right <7 
newRect = ((*theWind) .portRect) ; 


af 


(newRect .bottom>largest.v) 
newRect.top largest.v- (SBarWidth+l); 


else 


{ 


} 


newRect.top = newRect.bottom- (SBarWidth+tl); 
newRect .bottom = largest.v-l1; 


EraseRect( &newRect ); /* only erase increased rect to bottom x | 
InvalRect ( &((*theWind) .portRect) ); 


/* Save plotting preferences of 


saveprefer = prefer.plotting; 

prefer.plotting = FALSE; /* Force a single redraw * / 
MO UpdateWindow( theWind ); 

prefer.plotting = saveprefer; 


/* And restore prefernces afterwards aay | 


SetPort( savePort ); 


/* KRKEKEKKEKKKEKKKKKEKKKEKKKEKKE MO GrowWindow KKK KKKKKKKK KKK KKKKKKKKKK * / 


[RR KKK KKK KKK KKK KKK KK KE KK KE KKK KEKE KK KK KKK KKK KKK KK KKK KKK KKK KR KK KK KK KK KK KK 


MO ForceUpdate : Creates update events for all open orbit windows 
KHRK KKK KEK KKK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KKK KKK KKKK KK KKK KKK KKK * / 


void 
MO ForceUpdate () 


WindowPtr current; 

GrafPtr SavePort; 
GetPort (&savePort) ; /* and force redraw of whole screen * / 
current = MO FirstWindow(); 
maple (Current != NIL) 


} 


{ 
SetPort (current) ; 
InvalRect (& (current->portRect) ); 
current = MO NextWindow(current) ; 
} 


SetPort (savePort); 


/* KEK KKKKKKKKKKKKKKKR KKK MO ForceUpdate KKEKKKEKRKKEKKEKEKKKEKEKRKKKREKKKKEK ey 


ee 


{ 


be ou e 


[RRR KKRRKKKKKK KEKE KKK KKK KKK KK KKK KKK KKK KK KKK KKKKKKKKKKKKKKKKKKKKKKKKK 


a 


MO NextWindow : Finds pointer to next orbit window in ordered list 
KKK KKK KKK KKK KKK KKK KKK KKK KEK KEK KKK KKK KKK KKK KKK KKK KKK KKH KKK KKK KEK KEK KKK * / 
WindowPtr 
MO_NextWindow (current) 
WindowPtr Current, 
3 
3:6=<0; 
while ((i < MAXWINDOWS) && (WindowStorage[i] != current) ) 
{ /* Scans list for current window 


/* Find next non empty slot 


if ((WindowStorage[i] == current) && (1 == (MAXWINDOWS-1))) 
Feturn (NIL). /* No match so no program windows left 

i = itl; 

while ((1 < MAXWINDOWS) && (WindowStorage[{i] == NIL)) 


if (1 == MAXWINDOWS) 

return (NE) /* No match so no program windows left 
if (WindowStorage[{i] == NIL) 

return (NIL) ; /* No match so no program windows left 
else 


return (WindowStorage[i]) ; 
/* The next program window found 


air, 


= 


ei) 


7 


a) 


/* KEK KKK KK KKK KEK KKK KKKEK MO NextWindow KKK KKK K KK KK KKK KKK KKEKEKKKEKE x / 
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KKK KKK KK KKK KKK KKK KKK KKK KEK KKK KK KKK KKK EK KKK KK KK eK Ke kk kk 


* 

* FILENAME jee MacOro1ts Rh 

* DESCRIPTION >: xresouce source file for MacOrbits.c 

* ENVIRONMENT = Macintosh SE 1Mb 

* imqnieoapeea Cevy2. 115 

* AUTHOR : Captain Kenneth L. BEUTEL USMC 

* ADVISORS : Prof. Dan Davis 

* Prof. Dan Boger 

* Naval Postgraduate School, Monterey CA 
* VERS ION ro We 6/7 68) 

* REMARKS : Compile this file with RMAKER for use. 
* 

* CHANGES : 3/6/88 Formatted for MacWrite conversion 
* 


KKK KKK KEK KKK KEKE KKK KKK KKK KK KEK KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KK 


* The output rsre filename is: 
Meacorbits proj.rsre 


* Include the world map 
INCLUDE World.PICT 


* Include the icon symbols 
INCLUDE MacOrbits Icons 


* Include the nps logo 
INCLUDE NPS Logo 


* Include the Globes w/ meridian lines 
INCLUDE Globes.PICT 


KEK KKKKE KKK KK KKK KK KK KK KKK KKK MENU rsre ID‘s KKK KKK KKK KKK KKK KKK KKK KKK KKK 


Type MENU 


~ 1PAs' 
4 
About MacOrbits... 
(- 


PZ 9 

File 
New/N 
Open.../0O 
Close 

(- 

Save/S 
Save As... 
Revert 

(- 

Page Setup... 
Print... 


(- 
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Transten een 
Out oO 


7 AsO) 

Bave 
Undo/Z 

(- 
Cut/ x 
Copyv/C 
Paste/V 
Clear 


rales 

Orbit 
Display as text 
Display Graphically 
(- 

IJK Coordinates 

PQW Coordinates 
Geographic Coords 


piS2 

Plot 

Timed Plot... 

Start Continuous Plot 
(- 
Reset Plot 

(- 

Stop Plotting 


Pale 
Windows 
Global Map Background!\12 

(- 

Hide All Orbits 

(- 

(Orbit Window 
(Orbit Window 
(Orbit Window 
(Orbit Window 
(Orbit Window 


OW & WN bP 


plead 
Special 
Units of Measurement... 
Time Step... 
TracewOrolte 
Show Axes!\12 


KEKKKEKKEKKKKKKKK KKK KKK KKEK WIND 2S ce re Ss KeKKKKKEREKKREEKREKREKRAEA A 


202 





Type WIND 


,128 
Standard Orbit Window 
2020 336 482 
InVisible GoAway 
0 
0 


, 600 
Map Window 
fee S38 510 
Visible NoGoAway 
2 
0 


KKEAKKKKKKKKKKKKK KKK KKK KR KK KK AT RT Core i? sS Pirie, i, ie, a ie, ae, ie, ae, ae, ae, er, Ee, ae ae, ae, ae, ee, ie, ae ee, ae 


Type ALRT 


eo O 
Beetss 244 379 
256 
5555 


ae | 
meomrOS 250 405 
CaM | 
5555 


_ Exete 
Beee? 310 485 
256 
4444 


KEKEKKKEKKKEKEKKK KKK KKK KK KKK KKK DLOG eS te ID" s KEK KKK KK KKK KKK KKK KKK KK KKK 


TYPE DLOG 


mol 2 
NewOrbitID 
45 65 320 451 
Visible NoGoAway 
1 
0 
S12 


nol 


203 


SetUnitsID 
GS Fo 7 zocrase 
Visible NoGoAway 


1 
0 
Slee 
pod 
TimeStepID 


65 75 252 442 
Visible NoGoAway 


il 
0 
514 
,OLS 
TraceOrbitID 


72 118 240 420 
Visible NoGoAway 


ui 
0 
oils 
poo 
SetPlotTimeID 


61 91 209 408 
Visible NoGoAway 
1 
0 
DLC 


KKK KR KR KKK KK RKEKKK DITL rsrce ID's for DLOGs and ALRTs ******x** 
PYP ES bits 


Feo0 
Bi 
* al 
Btnitem Enabled 
126 SG elLoZ- og 
OK 


* 2 

StatText Disabled 
Vie ae lee 6 

oot Oana again 


poo 


204 





x ll 

Btnitem Enabled 
67 39 91 125 
Save 


* Z 

Btnitem Enabled 
foe 59 129 125 
Discard 


* 3 

Btnitem Enabled 
moo L184 129 270 
Cancel 


* 4 

StatText Disabled 

13 68 60 260 

Save changes to “*0 ? 


kKkAKKKKKKKK Db ou t Mae¢O- rb 1 t Ss Pile 
eo oO 

10 

* d. 


Btnitem Enabled 
ZowezoS 232 376 
OK 


* 2 

PictItem Disabled 
6 8 242 196 

258 


x 5 

StatText Disabled 

Ze 244 41 431 

Byeecanpe. K.L. Beutel, USMC 


* 4 

StatText Disabled 

72 224 87 399 

iomoactial fulfilment of 


iS 5 

StatText Disabled 

96 224 112 432 

M.S. in Computer Science and 


x 6 


StatText Disabled 
m20e224 136 432 


205 


M.S. in Systems Technology at 


x 7 

StatText Disabled 

144 224 160 432 

U.S. Naval Postgraduate School, 


* 8 

StatText Disabled 
168 224 184 432 
March, Lo6s. 


x 9 

StatText Disabled 

S191) 2427 

MacOrbits : The Orbital Simulation 


* 10 

StatText Disabled 

240 168 256 440 

(Portions Copyright THINK TECHNOLOGIES) 


KRKKKEKKKKEKKEKKEKEKK N E W O R B “if ih D if Ak ME 
pokZ 

28 

= i OK Button 


BtnItem Enabled 
232 80 256 166 
OK 


* Z Cancel Button 
BtniItem Enabled 

232 240 256° 326 

Cancel 


x 3 (name) 
EditText Enabled 
S220 27 2 
Untitled 


* & (a) 
EditText Enabled 
S2576 2465240 
9378 


* ° (e) 
EditText Enabled 
56-176 72 240 
Orso 


206 


StatText Disabled 
men 16 72 152 
Eccentricity (e) 


* 7 

StatText Disabled 
80 16 96 152 
imelination (1) 


x 8 
StatText Disabled 
8 16 24 104 


Orbit Name 


* 9 

StatText Disabled 
Szeto 48 152 
SemiMajor Axis (a) 


x Ig C1) 
EditText Enabled 
80 176 96 240 
45.0 


= Je 

StatText Disabled 
ient6 144 152 
Arg. of Perigee 


= iy (arg of perigee) 
EditText Enabled 

128 176 144 240 

50.0 


‘a 1 

StatText Disabled 
ioemno 168 176 

Long. of Ascend. Node 


x 14 (long of ascending node) 
EditText Enabled 

foe 7o 168 240 

ZrO 


* ES 

StatText Disabled 
i76el6 192 176 
Epoch Time (T) 


x 16 (Epoch Time) 
EditText Enabled 


207 


176 7G 22a 0 
EGO 


* 7 

StatText Disabled 
32-256 440373 
(km) 


* 18 

StatText Disabled 
56 256 725028 

(0 ge < 1) 


* 19 

StatText Disabled 
80 256 96 346 

(0 = i= 130°) 


* 20 

StatText Disabled 
128 256 144 336 
0° - 360° 


* Zz. 

StatText Disabled 
152-256 4156 3516 
O> =) 360" 


* paps 

StatText Disabled 
176-256 ° 1927336 
(hours) 


* 23 

StatText Disabled 
200 16 216 104 
Epoch Date 


* 24 (Epoch date) 
EditText Enabled 

Z00PLI2Z2216 241 

01/01/1988 


* 25 

StatText Disabled 
200.256. 216/359 
(mm/dd/yyyy) 


a 26 


StatText Disabled 
LO4el6n oe SZ 


208 





Mean Anomaly (M) 


* Za (Mean Anomaly) 


EditText Enabled 
mea 176 120 240 
7.0 


* 28 

StatText Disabled 
ma256 120 336 
0° - 360° 


RREKKKKKKKKKKKKKKK SF ET 


oS 
6 
* iL 
Btnitem Enabled 
136 48 160 134 
OK 


* 2 

Btnitem Enabled 
mo, 216 160 302 
Cancel 


* 5 

radioButton Enabled 
wOeto2 58 292 
Metric (MKS) 


* 4 
StatText Disabled 
8 54 24 262 


Select a System of Units: 


x 5 

radioButton Enabled 
64 152 82 292 
Canonical 


“ 6 

radioButton Disabled 
somesee 106 292 
English (mi.-lbs.-hr.) 


KEKEKKKKKKK KKK KKKK S E T 


Fo14 
9 
* di 
Btnitem Enabled 


DONS ews o 


JUVE Mola 


De ie os 


SAU ae! 


209 


By Ah dl ele 


144 48 168 134 
OK 


* Z 

BtniItem Enabled 
144 216 168 302 
Cancel 


x 3 

StatText Disabled 

48 24 64 176 

Update position every 


x S 

StatText Disabled 

6580) 32 “288 

Change Plotting Parameters 


* 5 

StatText Disabled 
48 224 64 288 
Minutes 


* 6 

EditText Enabled 
48 192 64 217 

0 


* 7 

StaticText Disabled 

88 24 104 176 

Time Compression Ratio 


* 8 

EditText Enabled 
88 186 104 217 

0 


* 9 

StaticText Disabled 
88 224 104 280 

oe: 


KkKKKKKKKKKKKKKKKK T RACE O RFR Bit Dee ae 
FES gS 

6 

* i. 

Btnitem Enabled 

272) Lor Ss 

OK 


210 





* 2 

Btnitem Enabled 
ta97et76 151 262 
Cancel 


* 3 

IconItem Enabled 
e050 92 82 

512 


* 4 

Iconitem Enabled 
pee sO0 92 162 
53 


* S 

Iconitem Enabled 
eum) 92 232 
514 


* 6 

StatText Disabled 

16 88 32 200 

Trace Orbit Path with 


KkKKKKKKKKKKKKKKK SEL EC T P i O T 
16 

5 

* a 

Btnitem Enabled 

96 48 120 134 

OK 


* 2 

BtnItem Enabled 
86 184 120 270 
Cancel 


* 3 

StatText Disabled 

40 24 56 160 

Select Plot Duration 


* 4 

EditText Enabled 
40 176 56 216 

90 


* 5 
StatText Disabled 


mil 


D U R Awa Oo N 


Aes 2 Om o6 
Minutes 


i \\ 2 





APPENDIX E 
MACORBITS USER'S MANUAL 


INTRODUCTION: MacOrbits is a program for the Apple Macintosh computer that 
simulates the motion of satellites around the Earth. It is designed to be easily used by 
anyone interested in observing various orbital phenomena such as the motion of a satellite 
or the trace that the satellite's path makes as it passes over the Earth's surface. This 
program assumes that the user is familiar with the basic operation of the Macintosh 
computer and the fundamental principles of orbital mechanics. If you are not comfortable 
with either of these topics please consult "Macintosh", your owner's manual, or a suitable 
physics text that describes basic orbit parameters (i.e., semimajor axis, eccentricity, 
inclination, argument of perigee, longitude of ascending node and epoch time). The thesis 
that accompanies this program is another source of information about satellite orbits. 
MacOrbits supplies several default values that may be modified later but (if left unchanged) 


will help you get started if you are still not entirely comfortable with these topics. 


BACKGROUND: This program was written as partial completion of the requirements 
for a Master's Thesis at the United States Naval Postgraduate School by Captain Kenneth 
L. Beutel, USMC. This thesis and program are the property of the United States 
Government. These documents are unclassified, with no limitations on distribution. It is 
requested that this or similar notices be provided with all copies of this program and 


associated documentation. 
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ORGANIZATION: The remainder of this user's manual is composed of a short “get 
acquainted" section and a reference section. The reference is organized according to the 
commands that are available via program menus. Menus are composed of several related 
items that act either globally or in the context of the current, topmost window. Dashed 
lines are used to group menu items that do similar functions. Many menu items will 
execute an action simply by selecting them. Other menu items, suffixed by ellipses (...), 


require more information from the user before they can be successfully executed. 


GETTING STARTED: To start using MacOrbits the Macintosh must be turned on and 
the Finder's desktop visible on the computer screen. Insert the disk containing the 
program MacOrbits and its associated files. In a few seconds an application icon will 
appear bearing the name "MacOrbits". Load the program either by "double clicking" the 
icon or selecting the icon and then choosing "Open" from the File menu. The application 


will start loading and in a few seconds present a blank screen with a new menu bar. 


Unless you are already familiar with orbital parameters and would like to define your own 
orbit, choose "Open" from the File Menu. (If you are familiar with these concepts and 
want to star. making your own orbits immediately, you can skip to the section on Menu 
Commands.) When the standard file dialog appears, select the name "Demo Orbit" from 
the file list. After choosing the file and pressing the "Open" button a new window will 
appear. This window is also named "Demo Orbit" and contains a short list of the orbit 


parameters that have been defined for this orbit and a globe representing the Earth. 
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To make the satellite move around the Earth choose "Plot Continuously" from the "Plot’ 
menu and watch the screen. The satellite's position is designated by a black dot in the 
window. Notice that this black dot and the globe are both updated on a regular basis. To 
change the rate of this update select the "Time Step..." menu item from the "Special’ 
menu. This dialog will allow you to change the rate at which wall clock time is 
compressed in the simulation's time system as well as change how frequently new 
positions are calculated for the satellite. You may experiment with both of these values 
later, but for now simply double the tme compression rate and select the "OK" button. 


Now the updates are appearing twice as fast in the window. 


Notice that you were able to make this change without causing the program to stop plotting 
or having to do any other special actions. This is because MacOrbits is designed to be as 
modeless as possible. Except when using dialog boxes, this program allows you to do 
any action that is legal whenever you want. If a menu item is inactive or dimmed then it is 
not appropriate to invoke that particular action in the current context. Opening a file, using 
a desk accessory, or selecting an orbit will activate these menu items as needed and allow 


you to use them. 
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Compatibility Notes: This program has been tested for compatibility with all 
Macintosh (HDUES from the Macintosh 512KE to the Macintosh II. There is no reason 
that this program should not run on machines that still have the old 64K (MFS) ROMs or 
128K of RAM. Out of memory conditions may develop when using these older machines 
(or with computers running Switcher™ or MultiFinder™). The most frequent cause of 
out of memory problems is having too many windows open or using the global map 
background. Notes are provided in this manual on how to minimiz~ the amount of 


memory that MacOrbits requires if these problems occur. 


216 





MacOrbits User's Manual 


REFERENCE: MacOrbits has six menus that contain the following menu items: 










New 
Open... 







About MacOrbits... 
Chooser 
Control Panel 
Scrapbook 










§ ne 
Save As... 
Hee z 















Timed Plot... 
Start Continuous Plot 


Page Setup... 

Print... 

Transfer... #T 
Quit 


Display as text 
“Display Graphically 














“IJK Coordinates 
PQW Coordinates 
Geographic Coords 










SOO COS ESS OSS SHS HHOHSSS OF SOO OOS SHS SOS SOS SOS SOSH OSOSOSOSOOOSOOH HOH OOH EEE SHES BEEBE 


Step Piptiing 















Windows 
Global Map Background 


2 OS 8 OF OOF OOS O80 OOF O06 OOF OOS SOT SSS SOS OES O88 OOS OOF OOS OOS OF OTST OTS OCOSEC OS TOSSSSESSTES 


Special 
Units of Measurement... 
Time Step... 
Trace Orbit... 
“Show Axes 











SOF OOS OOF SOT OBS OOS OOS OOF OOS OO OOS TOSOS OOS OS O88 OSHS S OSS O88 S08 SOS4H8 08 OOF See atesee 


Sample Orbit 
srboit Windows 2 
Orbit Windows 3 
Sr Hel Ui eoess ~§ 
Sri Windows & 
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@ MENU: The Apple Menu contains the currently installed desk accessories and an 


“About MacOrbits..." item that describes the authorship and purpose of this application. 


File MENU: This menu contains the standard Macintosh user interface menu items that 
allow the user to perform file handling functions, printing functions, and leave the 
MacOrbits program. Once an orbit file is opened (or created) an orbit window will be 
“is, iayed with the same title as the file name (or the same title as the new orbit name). 
MacOrbits will allow up to five orbits to be active at any given time. The "New" menu 


item creates new orbits by presenting the user with the following dialog box: 


Orbit Name: 


SemiMajor Axis (a) : 9378 (km) 


(0<e<1) 
(0°< i< 180°) 
Mean Anomaly (M): 0° - 360° 
Arg. of Perigee: 30.0 D° — 560° 
Long. of Ascend. Node :|20.0 u° = 3607 


Eccentricity (e) : 


Inclination (i): 


(hours) 


Epoch Date: |01/01/1988 (mm/dd/yyyy) 


Cancel 


Epoch Time (T): 
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The dialog provides a complete set of valid defaults if you are uncertain as to what values 


to enter to create a working orbit. 


The "Open" menu item allows the user to select MacOrbit documents that contain 
previously written orbit records, organized one per file. The "Close" menu item gives the 
user the opportunity to save any new orbit data, then closes the file associated with the 
topmost orbit window, and removes the window and all references to it from the current 
program. This is not the same as clicking the close box in the window that merely hides 


the window from view. 


The next collection of menu items, "Save", "Save as...", and "Revert" only affect the orbit 
window that is currently on top of the other orbit windows. The user may explicitly save 
the topmost orbit at any time by choosing the "Save as..." menu item. "Save" and 
“Revert' are only active when an existing orbit window has been changed. They allow the 
user to save changes to disk and return the window to the last saved state of the orbit, 


respectively. 
The "Page Setup" menu item provides the standard Macintosh printer set up routine and 


allows MacOrbits to support several different printers. The "Print" menu item prints out 


the values associated with the topmost orbit window. 
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. The user has two methods for leaving the MacOrbits application. The "Quit" menu item 
first ensures that all files have been saved, then exits the program MacOrbits, and returns 
to the desktop. The "Transfer..." function is similar, except that the user can leave the 
application and immediately start another application without having to go to the desktop 


first. 


Edit MENU: This menu is not used by the MacOrbits program but is provided for 
compatibility purposes with desk accessories that require the capability to cut and paste 
data. The items located in this menu are only active when a desk accessory is the top 


window on the screen. 


Orbit MENU: This menu is only active when at least one orbit window is opened and 
visible on the desktop. The Orbit Menu controls the appearance of the topmost orbit 
window by allowing the user to toggle between a text only view of the orbit and one of 


three graphical representations of the orbit. 
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The three possible graphic views are: 





Geographic Coordinates 


A check mark located in front of a menu item denotes the current active selection. 
Changing to a new view of the orbit is accomplished by selecting an unmarked item from 
this menu and then releasing the menu bar. If the selection is made with the "Display 
Graphically” item check marked, the windows contents will be updated immediately. 
Otherwise, the selected change will be delayed until the orbit window leaves the "Display 


as Text" mode. 
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Plot MENU: This menu initiates and terminates the updating of the satellite's orbital 
position for all open (but not necessarily visible) windows. The user has the option of — 
selecting a continuous plot or plotting for a user-definable interval. Once the program 
begins plotting the "Stop Plotting" menu item will become active. The user can select this 
menu item to terminate a plot that was started by either plot option. To reset the orbital 
parameters to their initial values selct the "Rest Plot" menu item. The rate at which the 
plotting of the next posit‘or will take place is controlled via the "Time Step..." menu item 


located in the Special Menu. 

The plotting mechanism is based on the amount of tme elapsed from epoch. Therefore all 
orbits are each updated once per plot interval. If the Timed Plot..." time duration expires 
during that time interval, MacOrbits will beep and reset the menu bar. The "Timed Plot..." 


menu item uses the following dialog box to determine the duration of the plot from the 


user: 


Select Plot Duration Minutes 
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To plot a single orbit for one active orbit windows: select the desired window, change the 
view to "Display as Text” via the Orbit Menu, read the time value associated with the 
period from the data chart, change to the desired plotting view, select the “Timed Plot..." 
menu item, and set the plot duration to the period of the satellite. The program will then 


plot the orbit at selected intervals for one complete revolution. 


Windows MENU: This menu manages the display of data on the screen. The default 
desktop for the program is a gray background. This is changeable to a world map that 
plots the satellites ground position via the "Global Map Background" menu item. (This 
map consumes about 28K of memory and should not be used under conditions where 


available memory is at a premium.) 


The background window contains a world map with political boundaries that looks like: 
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The "Hide All Orbits" menu item will remove all orbit windows from the user's view. 
The orbits associated with each window are not closed but still active and under the control 
of MacOrbits. This menu item controls the removal of any orbit window that might 


obscure the view of the global map background. 


The remaining menu items have the default name of "Orbit Window #" (where # is a 
number from 1 to 5) and are initially deactivated. One of these five positions will be 
occupied with the orbit's name when the orbit is created or opened. If a menu item 
containing the name of an active orbit 1s selected that orbit's window will be made visible 
(if it is hidden) and then brought on top of all other aisible windows. This allows the user 
full control over the contents of the display as well as the ability to quickly bring a window 


from the back of the desktop to the front. 
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Special MENU: This menu manages changes to the MacOrbits program that are global 
in scope (i.e., these changes affect all open windows. MacOrbits defaults to metric units 
(kilometers and seconds) when the program is initially loaded. The "Units of 


Measurement..." menu item provides a dialog for changing this system of units: 


Select a System of Units: 


(eo) Metric (MKS) 


©) Canonical 


© Eaghsh taré.- ie. 





The user may select a new system of units from the choices listed by selecting the button 
in front of the name of the measurement system. (The third choice is deactivated because 


English units are not currently supported.) 
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The "Time Step..." menu item controls the rate of time compression (measured versus 


wall clock time) and the interval between plot points by the dialog: 





Change Plotting Parameters 


Update position every Minutes 


Time Compression 200;: 1 





To change the default values select the appropriate edit text box and type in a new value. 
Pressing the tab key will highlight the contents of each box sequeatially and allows easy 


selection of a value that the user may wish to type over. 


The "Trace Orbit..." menu selection gives the user the option of selecting one of three 
different methods for drawing the data points at each plot interva!. This dialog contains 


three icons that represent the choice of single points, connecting lines, or both tracing 


methods combined. 
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This sample dialog shows the heavy box that indicates the current plot tracing method: 


Trace Orbit Path 


Oo @ 


Cancel 





The last menu item, "Show Axes", toggles the display of coordinate axes in all program 
windows. This option is represented by a check mark found in front of the menu item and 


initially defaults to active. 
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